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ПРЕДИСЛОВИЕ 

Язык программирования паскаль, созданный Н. Виртом на 
рубеже 60—70-х годов, получил в настоящее время широкое рас¬ 
пространение во всем мире. Трансляторы с паскаля имеются на оте¬ 
чественных ЭВМ многих типов, в том числе на БЭСМ-6 [8] и ЕС 
ЭВМ [13]. 

Важной особенностью паскаля, отличающей его от языков 
программирования, созданных ранее (фортрана, алгола и др.), 
является последовательное проведение в жизнь идей структурного 
программирования [12]. Другой существенной особенностью па¬ 
скаля является концепция структуры данных как одного из фун¬ 
даментальных понятий, лежащих, наряду с понятием алгоритма, 
в основе программирования [2]. 

К настоящему времени на русском языке издано немало книг 
по паскалю, в основном переводных [2, 3, 4, 5, 8, 10, 11]. Среди 
многочисленных книг, изданных на английском языке, отметим 
[14], отличающуюся полнотой и точностью изложения материала. 

Эти книги ориентированы в основном на достаточно опытного 
читателя. В них рассматриваются, как правило, вопросы, не свя¬ 
занные с реализацией языка паскаль на ЭВМ конкретных типов. 
Между тем из опыта известно, что каждая конкретная реализация 
языка программирования содержит массу особенностей, представ¬ 
ляющих трудности в первую очередь для начинающих пользова¬ 
телей ЭВМ. 

При написании данной книги мы ставили себе задачу помочь 
пользователям машин типа БЭСМ-6 и ЕС ЭВМ, начинающим освое¬ 
ние языка паскаль. С этой целью материал книги разбит на две 
главы. Первая глава содержит наиболее простые и часто используе¬ 
мые конструкции языка паскаль, доступные пониманию начинаю¬ 
щего читателя. Вторая глава содержит более сложный материал, 
адресованный достаточно опытному читателю. 

Мы стремились к тому, чтобы читатель как можно раньше на¬ 
чал самостоятельно составлять программы. Поэтому во многих 
случаях материал излагается сначала на элементарном уровне 
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(и не в полном объеме). И лишь после того, как читатель «встанет 
на ноги» и приобретет начальный опыт, ему сообщаются более 
полные сведения по тому или иному вопросу. 

Такая методика изложения материала, а также разбиение 
книги на две главы («элементарную» и более сложную) уже приме¬ 
нялись нами ранее [9]. Наш опыт преподавания основ программи¬ 
рования в школах Дубны и в Дубненском филиале НИИЯФ МГУ 
убедил нас в правильности такого способа изложения материала. 

В процессе работы над книгой нам пришлось эксперимен¬ 
тально проверять «восприятие» трансляторами на БЭСМ-6 и ЕС 
ЭВМ тех или иных конструкций языка паскаль. Иногда обнаружи¬ 
вались расхождения между описаниями в [8] и [13] и фактическим 
положением вещей. 

Считаем необходимым обратить внимание читателей на сле¬ 
дующее обстоятельство. 

Обычно в книгах тексты программ на паскале набираются строч¬ 
ными буквами с выделением ключевых слов полужирным шриф¬ 
том [1]. Однако пользователи ЭВМ получают с машины тексты, 
отпечатанные прописными буквами. Только прописными буква¬ 
ми выдаются тексты программ и на экраны большинства дисплеев. 
Поэтому в книге все тексты на языке паскаль набраны прописными 
буквами, более привычными для пользователей ЭВМ. Отметим, 
что такой способ набора принят и в [10]. 

Мы понимаем, что для достаточно полного и точного описапия 
особенностей реализации языка паскаль на ЭВМ конкретного типа 
требуется несколько лет предварительной работы с соответствую¬ 
щим транслятором. 

Данную книгу можно рассматривать как один из первых опы¬ 
тов описания языка паскаль для машин типа БЭСМ-6 и ЕС ЭВМ. 

Появлению этой книги во многом способствовала Екатерина 
Ивановна Стечкина, которая много лет возглавляла редакцию, 
выпускавшую книги по информатике и вычислительной матема- 

Выражаем искреннюю благодарность О. В. Благонравовой, 
Г. А. Косянину и Ю. К. Крюкову за помощь в подготовке при¬ 
меров и задач, А. А. Корнейчуку и А. В. Гусеву за ценные со¬ 
веты и рекомендации, А. Н. Графовой ва помощь в подготовке 
рукописи к изданию. 

Мы будем признательны читателям, которые пришлют свои 
замечания и предложения. 

Дубна, 1988 г. 


Авторы 


ВВЕДЕНИЕ 

Язык паскаль был создан в конце 60-х годов Н. Виртом как 
специальный язык для обучения студентов, но вскоре получил 
распространение среди программистов. Сейчас паскаль широко 
используется и для написания прикладных программ, и как язык 
системного программирования. 

В частности, программное обеспечение многих мини- и микро¬ 
компьютеров написано на языке паскаль. Трансляторы с этого 
языка имеются на наиболее распространенных типах ЭВМ во всем 
мире. 

Основными причинами популярности языка паскаль являются 
следующие. 

1. Простота языка позволяет быстро его освоить и создавать 
алгоритмически сложные программы. 

2. Развитые средства представления структур данных обеспе¬ 
чивают удобство работы как с числовой, так и с символьной и би» 
товой информацией. 

3. Наличие специальных методик создания трансляторов с пас¬ 
каля упростило их разработку и способствовало широкому распро¬ 
странению языка. 

4. Оптимизирующие свойства трансляторов с паскаля позво¬ 
ляют создавать эффективные программы. Это послужило одной из 
причин использования паскаля в качестве языка системного про¬ 
граммирования . 

5. В языке паскаль реализованы идеи структурного програм¬ 
мирования [2, 12], что делает программу наглядной и дает хорошие 
возможности для разработай и отладки. 

В данной книге содержится информация для начинающих 
пользователей машин типа ЕС ЭВМ и БЭСМ-6, собирающихся 
работать на языке паскаль. 

Описываемые возможности паскаля реализованы на машинах 
типа БЭСМ-6 и ЕС ЭВМ за исключением случаев, оговоренных 
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особо. Дополнительные возможности, предоставляемые трансля¬ 
торами на конкретных ЭВМ, в книге не описаны. С ними можно 
ознакомиться в соответствующей литературе: [4, 8, 13]. Приведе¬ 
ны только те режимы трансляции, которые имеются на ЭВМ пе¬ 
речисленных типов. 

Учитывая, что многие читатели владеют языком фортран, мы 
будем в ряде случаев обращать их внимание на конкретные сход¬ 
ства и различия языков паскаль и фортран. 


ГЛАВА Г 

ПАСКАЛЬ ДЛЯ НАЧИНАЮЩИХ 

1. Задания для ЭВМ с программой на языке паскаль 

Работа ЭВМ осуществляется под управлением спедиального 
комплекса программ, называемого операционной системой (ОС). 
Машины каждого типа могут быть оснащены несколькими операци¬ 
онными системами. Например, для машин серии ЕС ЭВМ разрабо¬ 
таны операционные системы ДОС ЕС и ОС ЕС, для ЭВМ БЭСМ-6 
существуют системы «Дубна», Диспак и другие. 

Для того чтобы программа могла быть выполнена какой-либо 
ЭВМ, необходимо составить задание для этой ЭВМ. 

В задание, помимо программы, входят так называемые управ¬ 
ляющие карты. Программа, написанная на языке паскаль, может 
быть выполнена на любой ЭВМ, имеющей транслятор с этого явы- 
ка, но управляющие карты должны быть свои для ЭВМ каждого 
типа. 

Управляющие карты содержат обязательную информацию 
о задании. Например, машине надо «знать» фамилию программи¬ 
ста, шифр (пароль), под которым выполняется задание, и некоторые 
другие сведения. 

Для каждой операционной системы имеется свой набор управ¬ 
ляющих карт. Рассмотрим несколько примеров. 

1.1. Задание для машин типа ЕС ЭВМ (вариант ОС ЕС) 

Управляющие карты (или карты управления заданием) для 
машин типа ЕС ЭВМ начішаются с символа «/», располагаемого 
в первой колонке перфокарты (в первой позиции строки). 

//ХХХХ— JOB—YYYY,' ФАМИЛИЯ' ,MSGLEVEL= (2,0) 

//— EXEC—PASCLG 

//PASC.SYSIN—DD— * 


Программа на 
языке паскаль 
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//GO.SYSINl-jDDi. 


Данные для 
ввода 


// • 

Здесь через ХХХХ и YYYY обозначены соответственно имя зада¬ 
ния и шифр пользователя, а символом здесь и в дальнейшем 
будут обозначаться пробелы. 

Пример 1. Пусть пользователь Петров, имеющий на одной 
из машин типа ЕС ЭВМ шифр РЕТ12, собирается выполнить на 
этой ЭВМ задание под названием TASK1 (имя задания). Тогда 
первая карта задания будет такой: 

//TASKl^JOB— РЕТ12, PETROV, MSGLEVEL= (2,0) 

Мы не будем утомлять читателя подробным описанием всех 
карт управления заданием, поясним только вторую карту. 

//— EXEC_PASCLG 

Здесь ЕХЕС означает «выполнение» (EXECUTION), PAS — 
программа написана на языке' паскаль, С — требуется трансля 
ция (COMPILATION), L — работа редактора связей (LINKAGE 
EDITOR), G — выход на счет (GO). 

Если выход на счет не требуется, то эта карта выглядит так: 
/A-EXEC^PASCL 

На некоторых ЕС ЭВМ принят другой набор карт управления 
ваданием. Приведем пример. 

//XXXX^J OB^YYYY,' ФАМИЛИЯ' ,MSGLEVEL= (2,0) 

//— EXEC^PASCLG 
//C.SYSIN^DD^* 


Программа на 
языке паскаль 


//G.SYSIN—DD— * 


Данные для 
ввода 

// 

Подробнее о картах управления заданием можно прочитать в [6]. 
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1.2. Задание для ЭВМ БЭСМ-6 в системе «Дубна» 
(пакет задачи) 


На ЭВМ БЭСМ-6 управляющие карты начинаются с символа 
(в первой колонке). 

♦NAME— ХХХХ 

♦PASS:YYYY 

*ТІМЕ:00.05 

*LIBRARY:11 

♦CALL—ALLMEMORY 

♦PASCAL 


Программа на 
языке паскаль 


♦EXECUTE ' 


Данные для 
ввода 


♦END—FILE 

Здесь через ХХХХ и YYYY обозначены соответственно фа¬ 
милия пользователя и его шифр. Если пакет задачи создан на пер¬ 
фокартах, то следует добавить еще одну перфокарту — так назы¬ 
ваемый «диспетчерский конец». Эта карта содержит все пробивки 
в 1-й и 41-й колонках, и притом только в этих колонках. 

П р и м е р 2. Пусть задание примера 1 должно быть выполне¬ 
но на ЭВМ БЭСМ-6 и для его выполнения требуется не более двух 
минут времени. Первые три карты задания будут такими: 

♦NAME^PETROV 

♦PASS:PET12 

♦TIME:00.02 

Более подробно управляющие карты БЭСМ-6 описаны в [7, 9J. 

1.3. Задание в системе Диспак 


Пример пакета выглядит так: 
ШИФР—5 1 5 3 1 0 3 С 2 


Е Е В 1 А 3 


if 







ВРЕМ—О 5 3 0 0 0 
♦NAME— СЕМАШКО 
♦FICMEMORY 
•PASCAL 
♦LIBRARY:!! 


Программа на 
языке паскаль 


♦EXECUTE 

♦END-FILE 

«диспетчерский конец» 
ЕКОНЕЦ 


2. Словарь языка паскаль 


Язык паскаль оперирует со следующим набором символов; 

а) все латинские (и русские буквы на БЭСМ-6); 

б) все арабские цифры; 

в) ограничители и специальные символы: 


+ »= « <'(-•• 
- • ' <= ) { 
* , > [ } 

I ; < > >= 1 т 

г) ключевые слова: 


AND 

ARRAY 

BEGIN 

CASE 

CONST 

DIV 

DO 

DOWNTO 

ELSE 


END 

FILE 

FOR 

FUNCTION 

GOTO 

IF 

IN 

LABEL 

MOD 


NIL 

NOT 

OF 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT 


SET 

THEN 

TO 

TYPE 

UNTIL 

VAR 

WHILE 

WITH 


В программе нельзя использовать идентификаторы, совпадаю¬ 
щие по написанию с приведенными выше ключевыми словами. 

Вместо символов { и }, отсутствующих на клавиатуре устройств 
подготовки данных, набираются соответственно пары символов 
(. и *). 

Конструкция (♦ ТЕКСТ ♦) воспринимается как комментарий 
в может быть помещена в любом месте программы. На БЭСМ-6 
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нельзя ставить комментарий после END. (последнего оператора 
программы). 

Пример. Пусть в каком-либо участке программы вычисля¬ 
ется корень уравнения. Тогда перед этим участком полезно поме¬ 
стить следующий комментарий: 

(* ВЫЧИСЛЕНИЕ КОРНЯ УРАВНЕНИЯ *) 


Пробелы, комментарии, концы строк являются разделителями. 
Между любыми именами, числами, ключевыми словами должен 
стоять по крайней мере один разделитель, а может их быть и сколь¬ 
ко угодно. Но нельзя отделять один символ от другого внутри име¬ 
ни, числа либо ключевого слова. 

Пример. Ключевое слово GOTO нельзя записать как GO 
ТО (в отличие от фортрана, где это допускается). 

Можно: Нельзя: 

GOTO 5005; GOTO5005; 

GOTO 5005; GO ТО 5005; 

GOTO 


5005; GOTO 5 005; 

На ЕС ЭВМ используется следующее представление символов: 


Стандартное *) 

[ ] 

( } 1 AND 1 OR 

NOT 

< > 

Паскаль ЕС 

(••) 

(* *) 

& 1 ' 

*1 

п= 


3. Данные 

Программа, написанная на языке паскаль (равно как и програм¬ 
ма, написанная на любом из других языков программирования), 
предназначена для обработки данных. Эти данные могут быть раз¬ 
личной природы (числа, тексты, последовательности двоичных раз¬ 
рядов, или битов, и т. п.). Одни данные являются исходными (или, 
как говорят, задаются на входе), другие являются результатами, 
полученными из исходных данных в процессе выполнения програм¬ 
мы (про такие данные обычно говорят, что они получаются на вы¬ 
ходе). 

В зависимости от способа их хранения и обработки в ЭВМ 
данные можно разбить и на две другие группы: константы и пе¬ 
ременные. 

Константы — это те данные, значения которых не изменяются 
в процессе работы программы. Значения переменных, в отличие 


*) Используется в стандарте языка паскаль. 










от констант, могут изменяться во время выполнения программы. 
Константы «узнаются» машиной по форме их записи, а переменные — 
по именам (или идентификаторам). 

В языке паскаль используются константы трех видов: чис¬ 
ловые, булевские и символьные. Первые предназначены для представ¬ 
ления числовых данных (целых и вещественных). Булевские кон¬ 
станты используются для представления данных, имеющих смысл 
логических высказываний (да — нет, истина — ложь). Символь¬ 
ные константы представляют данные, являющиеся последователь¬ 
ностями символов (тексты). 

8.1. Константы 

Числовые константы могут быть целыми и вещественными. 

3.1.1. Целые константы (INTEGER). Целая десятичная кон¬ 
станта представляет собой последовательность десятичных цифр, 
которой может предшествовать знак—. 

Пример. 158; -15; 237846; 

Целые константы в паскале не должны превосходить по аб¬ 
солютной величине 

на ЭВМ БЭСМ-6 2 4 ° - 1 ж 10«, 

на ЕС ЭВМ 2» —1 ж 2-10». 

На БЭСМ-6 допустимы и целые восьмеричные константы, ко¬ 
торые представляют собой последовательности восьмеричных цифр, 
оканчивающиеся справа буквой В. 

Пример. 135В; 2В; 

Можно использовать и восьмеричные константы, оканчиваю¬ 
щиеся вместо В буквами С либо Т. Буква С означает, что последо¬ 
вательность восьмеричных цифр расположена в машинном слове 
справа, а слева дополняется нулями; буква Т — последователь¬ 
ность восьмеричных цифр расположена в слове слева, а справа 
дополняется нулями. 

Пример. 

0G25T есть константа 0025 0000 0000 0000, 

146С есть константа 0000 0000 0000 0146. 

8.1.2. Вещественные константы (REAL). Представление ве¬ 
щественных констант, как и на фортране, имеет две формы: в виде 
десятичной дроби, где вместо запятой используется точка (напри¬ 
мер, число 3.2), и в виде числа, содержащего указание на степень 
десяти (например, число 2.5Е9). 

Число, в записи которого использована степень десяти (напри¬ 
мер, 2,5-10 е ), изображается на паскале так: знак умножения опус- 
14 




кается, вместо основания 10 пишется буква Е, следом эа Е — пока¬ 
затель степени (т. е. так же, как и на фортране). 

Пример. 

2.5Е9 соответствует числу 2,5*10®, 

0.13Е—10 соответствует числу 0,13* 10 -10 . 

Замечание. Константа, записанная в виде десятичной 
дроби, в отличие от констант фортрана, обязательно должна содер¬ 
жать как целую часть, так и дробную, т. е. нельзя записать 2. 
■и .5, а следует использовать 2.0 и 0.5 . 

Вещественные константы не должны по абсолютной величине 
превосходить 

на БЭСМ-6 10 1 ®, 
на ЕС ЭВМ 10™. 

Целое число может быть записано в виде вещественной кон¬ 
станты, имеющей нулевую дробную часть (например, число 3.0). 

Если вещественная константа по модулю меньше некоторого 
определенного числа, то машиной она воспринимается как нуль 
(«машинный нуль»). 

Для ЭВМ каждого типа эта наименьшая вещественная кон¬ 
станта своя. Если обозначить ее через MINR, то 
для БЭСМ-6 MINR = ІО' 19 , 
для ЕС ЭВМ MINR = 10-Т». 

Пример. Для БЭСМ-6 результат вычисления выражения 
(ІО -10 ) 2 есть машинный нуль, а для ЕС ЭВМ — число ІО -20 . 

Таким образом, ЭВМ каждого типа оперирует с конечным на¬ 
бором чисел из определенного диапазона. 

Для БЭСМ-6 диапазон изменения вещественных чисел по мо¬ 
дулю — от 10 -1 ® до 10 1 ®, для ЕС ЭВМ — от 10'?» до ЮТ®. 

3.1.3. Булевские константы (BOOLEAN). Имеются две булев¬ 
ские константы: TRUE -и FALSE. 

3.1.4. Символьные константы (CHAR). Символ, заключенный 
в апострофы, есть символьная константа. 

Пример. 'А', Т, '='. 

3.1.5. Константы-строки. Последовательность символов, за¬ 
ключенная в апострофы, есть строка. 

Пример. 'DUBNA'; '12345'; 'А*В'; 

Длиной строки К называется число символов в ней. 

3.1.6. Константы типа ALFA*). Строку символов длиной в од¬ 
но машинное слово называют константой типа ALFA. 


*) Расширение стандарта языка паскаль для ЭВМ БЭСМ-6 
и ЕС. 
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Длина К этой константы эависит от тина ЭВМ: 
для БЭСМ-6 К =6, 
для ЕС ЭВМ К = 8. 

Пример. Константы типа ALFA 
на БЭСМ-6 'DUBNA^J; '141980'; 'МОСКВА'; 
на ЕС ЭВМ 'DUBNA___/; 'IVANENKO'; 

Если среди символов константы-строки имеется апостроф, 
то он изображается двумя апострофами. 

Пример. Константу A'B'C'D следует набрать как 
'A"B"C''D'. 


4. Идентификаторы 

Идентификатор паскаля — это последовательность букв или 
цифр, начинающаяся с буквы. Значащими являются первые 8 сим¬ 
волов. Заметим, что в паскале, в отличие от фортрана, пробелы 
в идентификаторах не допускаются. 

Пример. А; В12, 15D13; STACKCOMP; 

В последнем идентификаторе 9 символов. Последний, девя¬ 
тый символ не учитывается транслятором, так как значащими 
являются первые восемь символов. Но для мнемоники программи¬ 
сту иногда бывает удобно использовать болез длинные идентифп 
каторы. 

Вместо слова «идентификатор» часто употребляют синонимы: 
«имя», «наименование», «название». 

В программе нельзя использовать идентификаторы, совпадаю¬ 
щие по написанию с приведенными в п.2 ключевыми словами. 

5. О типах переменных 

Каждая переменная (например А, В, С), используемая в про¬ 
грамме, должна быть описана следующим обравом: 

A:TYPE1; C,B:TYPE2;... 

Здесь А, В, С — идентификаторы переменных, TYPE1, TYPE2 — 
типы переменных. 

Пример. J,K:INTEGER; A,B,C:REAL; L:BOOLEAN; 

В языке паскаль имеется следующий набор типов переменных: 

ПРОСТЫЕ ТИПЫ 
СКАЛЯРНЫЕ 

НЕСТАНДАРТНЫЕ (ПЕРЕЧИСЛЕНИЕ} 
СТАНДАРТНЫЕ 
ЦЕЛЫЙ (INTEGER) 
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ВЕЩЕСТВЕННЫЙ (REAL) 
БУЛЕВСКИЙ (BOOLEAN) 
СИМВОЛЬНЫЙ (CHAR) 
СТРОКОВЫЙ (ALFA) *) 
ОГРАНИЧЕННЫЕ (SUBRANGE) 
СЛОЖНЫЕ ТИПЫ 
МАССИВ (ARRAY) 

МНОЖЕСТВО (SET) 

ФАЙЛ (FILE) 

ЗАПИСЬ (RECORD) 

ССЫЛКИ (УКАЗАТЕЛЬ, POINTER) 


Набор типов языка паскаль представлен на следующей схеме 
(рис. 1). 



Тип переменной определяет множество значений этой пере¬ 
менной, набор операций, которые к ней могут быть применены, 
а также тип результата выполнения этих операций. 

Остановимся подробнее на типах, приведенных на схеме. 

6. Скалярные типы 

Каждый скалярный тип определяет соответствующее ему 
упорядоченное множество значений. 

6.1. Тин целый (INTEGER) 

Переменные тина INTEGER могут принимать только целые 
значения. Такие переменные описываются следующим образом: 

А,В,С : INTEGER; 

*) Расширение стандарта языка паскаль. 
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Здесь А,В,С...— имена переменных, INTEGER — тип перемен¬ 
ных. Транслятор, встретив такое описание переменных А, В, С..., 
запоминает, что эти переменные могут принимать только целые зна¬ 
чения и формирует соответственно этому команды программы. 

Если используются операнды целого типа, то следующие опе¬ 
рации дают результат целого типа: 

* умножение. 

DIY деление без округления — целая часть частного. 

MOD остаток от деления A MOD В = А — ((A DIV В)*В). 
+ сложение. 

— вычитание. 

Функции 

ABS(X) — абсолютная величина X, SQR(X) — квадрат X. 

Следующие функции дают целый результат и для X вещест¬ 
венного: 

TRUNC(X) — (отбрасывание десятичных знаков после точки); 
ROUND(X) — (округление до целого). 

Операция (ОР) над операндами целого типа выполняется правильно 
только при условии, что результат и каждый операнд по модулю 
не превосходят некоторой константы MAXINT. 

ABS (А ОР В) < MAXINT, 

ABS (А) < MAXINT, ABS(B) < MAXINT. 

для БЭСМ-6 MAXINT = 2«®-1 да 10» 
для ЕС ЭВМ MAXINT = 2 31 -1ж2.10» 

Поясним на примерах работу приведенных операций и функ¬ 
ций. 

Пример 1. Пусть А = 14; В = 4. Тогда А DIV В дает 3; 
А MOD В дает 2 (остаток от деления); SQR(B) дает 16. 

Пример 2. Пусть X = 8.915. Тогда TRUNC(X) дает 8; 
ROUND(X) дает 9. 

Пример 3. Пусть надо на ЕС ЭВМ вычислить значение 
выражения 5-10®-3-105-8-10~5. Если запрограммировать так: 
500000*300000*80Е—5, то первое умножение не выполнится, так 
как результат 15-10 10 превышает MAXINT. Надо изменить порядок 
сомножителей, чтобы ЭВМ вычислила окончательный результат: 
500000*80Е—5.300000 

Пример 4. Выражение 5*3 дает результат типа «целый», 
а 5*3.0 — типа «вещественный», так как один из сомножителей 
вещественный. 
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6.2. Тип вещественный (REAL) 

Величины X этого типа могут принимать только вещественные 
значения. 

Еоли хотя бы один ив операндов вещественный, следующие опе¬ 
рации дают вещественный результат: +, —, *,/. 

Операция деления / дает вещественный результат и в случае 
двух целых операндов (в отличие от фортрана). 

Пример. 6/2 дает 3.0 

Следует обратить внимание, что стандартная функция ABS(X)— 
(модуль X) от целого аргумента дает целый результат, а от вещест¬ 
венного — вещественный, как и SQR(X) — квадрат X; но функ¬ 
ции 

SIN(X) — синус X (X в радианах), 

COS(X) — косинус X (X в радианах), 

LN(X) — натуральный логарифм X, 

ЕХР(Х) — экспонента X, 

SQRT(X) — корень квадратный из X, 

ARCTAN(X) — арктангенс X 

дают вещественный результат как для вещественного, так и для 
целого аргумента. 

Нельзя использовать переменные и константы типа REAL: 

а) в функциях PRED(X), SUCC(X), ORD(X); 

б) в качестве индексов массивов; 

в) в операторах передачи управления в качестве меток; 

г) в определении базы типа SET (см. п. 20). 

6.3. Тип булевский (BOOLEAN) 

Переменная булевского типа принимает значения TRUE или 
FALSE. Эти величины упорядочены следующим образом: 
FALSE<TRUE 

Операции AND, OR, NOT (применяемые к булевским операндам) 
дают булевские значения. 

Операция AND (логическое умножение, пересечение, операция 
«И»). Выражение A AND В дает значение TRUE (истина), только 
в том случае, если и А и В имеют значения TRUE. Во всех осталь¬ 
ных случаях значение выражения A AND В — FALSE (ложь). 
<TRUE> AND <TRUE> = <TRUE> 

<TRUE> AND <FALSE> = <FALSE> 

<FALSE> AND <FALSE> = <FALSE> 

Операция OR (логическое сложение, объединение, операция 

«ИЛИ»), 
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Выражение A OR В дает значение FALSE в том и только в том 
случае, если и А, и В имеют значения FALSE. Во всех остальных 
случаях результат — TRUE. 

<TRUE> OR <TRUE> =<TR' E> 

<TRUE> OR <FALSE> = <TRUE> 

<FALSE> OR <FALSE>=<FALSE> 

Операция NOT (отрицание, операция «НЕ»). 

Выражение NOT А имеет значение, противоположное значе¬ 
нию А. 

NOT <TRUE> = <FALSE>, 

NOT <FALSE> = <TRUE>. 

Стандартными булевскими функциями являются: ODD(X), EOLN(X), 
EOF(X). 

ODD(X) = TRUE, если X нечетный (X целый); 

EOLN(X) = TRUE, если, встретился конец строки текстово¬ 
го файла X; 

EOF(X) = TRUE, если встретился конец файла X. 

В остальных случаях эти функции принимают значение 
FALSE. 

6.4. Тип символьный (CHAR) 

Переменная типа CHAR может принимать значения из опре¬ 
деленной упорядоченной последовательности символов, разрешенной 
транслятором с паскаля на данной ЭВМ. 

Две стандартные функции позволяют поставить в соответствие 
данную последовательность символов множеству целых неотрица¬ 
тельных чисел (порядковым номерам символов последовательности). 

Эти функции называются функциями преобразования: 

ORD(C) — выдает номер символа С (нумерация с нуля), 

CHR(I) — выдает І-й символ последовательности. 

Пример. ORD(H) выдает номер символа Н в последователь¬ 
ности всех символов, используемых транслятором. CHR(15) вы¬ 
дает 15-й символ этой последовательности, например букву О. 

6.5. Тип ALFA*) 

Переменная этого типа представляет собой машинное слово, 
содержащее символьную информацию. 

Слово БЭСМ-6 содержит 6 символов, 

Слово ЕС ЭБМ содержит 8 символов. 

*) В стандарте языка паскаль зтот тип 


отсутствует. 




Переменная типа ALFA должна занимать одно полное машин¬ 
ное слово, т. е. содержать ровно столько символов, сколько их со¬ 
держится в машинном слове. 

К Переменным этого типа можно применять операции отноше¬ 
ния: 

«равно» (=), «не равно» « », «меньше» «), «больше» (», 

«меньше или равно» «=), «больше или равно» (>=). 

Пример. Пусть А — переменная типа ALFA, содержащая 
слово 'IVANOV', В — содержит слово 'PETROV', a F — слово 
'ROGOVA (на БЭСМ-6). Тогда выражение 

А=В принимает значение FALSE, 

А<В (буква I предшествует Р) г- TRUE, 

B>=F (буква Р предшествует R) — FALSE. 

6.6. Тип «перечисление» 

В программу можно ввести и переменные какого-либо типа, не 
совпадающего ни с одним из стандартных. Такой тип задается пере¬ 
числением значений, которые может принимать переменная. 

Общий вид описания нестандартного типа: 

TYPE NM=(WORDl, WORD2, ...,WORDN); 

здесь NM — идентификатор типа (произвольный идентификатор), 
WORD1, WORD2...— конкретные значения, которые может при¬ 
нимать переменная типа NM. Эти; значения считается упорядочен¬ 
ными, т. е. описание типа одновременно вводит упорядочение 

WORDl<WORD2<...<,WORDN. 

Пример 1. TYPE COLOR=(RED, YELLOW, GREEN, 
BLUE); 

Здесь определено, что RED<YELLOW<GREEN<BLUE. 
Переменная типа COLOR может принимать одно из перечисленных 
значений. 

Ко всем переменным скалярного типа, кроме REAL, примени¬ 
мы следующие стандартные функции: SUCC(X), PRED(X), ORD(X). 

Функция SUCC(X). По элементу X определяется та упорядо¬ 
ченная последовательность, которой принадлежит X, и выдается 
элемент, следующий за X в этой последовательности. 

Пример 2. Пусть задана последовательность букв в алфа¬ 
витном порядке. Тогда SUCC(A) есть В; SUCC(L) есть М и т. д. 
В примере 1 SUCC(RED) есть YELLOW. 

Функция PRED(X). По элементу X определяется последова¬ 
тельность, которой принадлежит X, и выдается предыдущий эле¬ 
мент этой последовательности. 
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Пример 3. PRED(F) есть Е; PRED(Z) есть Y и т. д. 

Функция ORD(X). Выдается номер элемента X из соответст¬ 
вующей поел едино, іслпности. 

П р и м е р 4. Если заданная последовательность есть латинский 
алфавит, то ORD(A) есть 0; ORD(C) есть 2. (Нумерация начинается 
с нуля). 

Ко всем переменным одного и того же скалярного типа приме¬ 
нимы операции отношения 

= ,< >, <=,>=,<, >• 

7. Ограниченные типы (SUBRANGE) 

Для переменной скалярного типа можно указать некоторое 
подмножество значений, которые может принимать данная пере¬ 
менная. 

Общий вид: 

А:МШ..МАХ; 0 

здесь А — переменная, MIN — левая граница, МАХ — правая 
граница подмножества (диапазона). Границы диапазона разделяют¬ 
ся двумя точками. 

Тип MIN и МАХ задает множество, определяющее основной 
тип переменной А (базовый тип). О переменной, описанной таким 
образом, говорят, что она имеет тип «ограниченный». 

Пример. Пусть переменная К может принимать значения 
из множества 1 -f- 20. Тогда ей приписывают ограниченный тип 
(SUBRANGE):K:1..20;— основным типом переменной К является 
тип INTEGER, так как границами диапазона являются целые 
константы 1 и 20. 

Если переменная В может принимать одно из значений RED, 
•YELLOW, GREEN, то эту переменную можно описать так: 
B:RED..GREEN; основным типом В является тип COLOR, опи- 
санпый выше в примере 1. Граница MIN всегда должна быть меньше 
МАХ. 

Пример. Пусть I — переменная, принимающая значения 
года рождения сотрудника какого-либо учреждения. Очевидно, 
имеет смысл ограничить диапазон значений I подмножеством но 
крайней мере 19007 1970, т. е. описать так: 1:1900..1970; перемен¬ 
ная I будет иметь тип ограниченный, а не целый. 

8. Структура программы 

Программа состоит из заголовка и блока. Проиллюстрируем 
структуру программы на следующем примере: 

PROGRAM МА (INPUT, OUTPUT, FI, F2); 

LABEL 15,120; 


CONST INMAX=81; 

PI=3.14; 

OUTMAX=60; 

EOL='!'; 

TYPE FAMILY= (FATHER,MOTHER,CHILD)| 
LLINE=1..INMAX; 

AR=ARRAY[1..16] OF CHAR; 

VAR LINE:ARRAY[LLINE] OF CHAR; 

L:LLINE; 

I,K,POS:INTEGER; 

SP:AR; F:FAMILY; 

C,D:REAL; 

PROCEDURE RLINE; 

VAR M:LLINE; B:AR; Z:FAMILY; 

BEGIN 

M:=l; 

WHILE NOT EOLN (INPUT) DO; 

BEGIN READ (LINE[M]); M:=M+1 
END; 

READLN; 

LINE[M]:=EOL;POS:=l; 

END; (* КОНЕЦ ПРОЦЕДУРЫ *) 

BEGIN (* НАЧАЛО РАБОТЫ ПРОГРАММЫ *) 
15:LINE[l]:=EOL; 

120:RLINE; 


END. 

8.1. Заголовок программы 

В заголовке указывается имя программы и список параметров. 

Общий вид: 

PROGRAM N (INPUT,OUTPUT,X,Y,...); 
эдесь N — имя программы; INPUT — файл ввода — указывается, 
если в программе есть ввод данных; OUTPUT — файл вывода — 
указывается всегда; X,Y — внешние файлы, используемые в про¬ 
грамме (см. п. 21.1). 

В приведенном выше примере заголовком является строка 

PROGRAM' МА (INPUT,OUTPUT,FI,F2); 

8.2. Блок 

Блок программы состоит из шести разделов, следующих в стро¬ 
го определенном порядке: 

1) раздел меток (LABEL), 

2) раздел констант (CONST), 
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3) раздел типов (TYPE), 

4) раздел переменных (VAR), 

5) раздел процедур и функций, 

6) раздел действий (операторов). 

Раздел действий должен присутствовать всегда, остальные разделы 
могут отсутствовать. 

Каждый из первых 4-х разделов начинается с соответствующего 
ключевого слова (LABEL,CONST,TYPE,VAR), которое записы¬ 
вается один раз в начале раздела и отделяется от последующей ин¬ 
формации только пробелом (либо концом строки либо комментарием)-. 

В приведенном выше примере в блок входят строки от LABEL 
15,120; до END. 

8.2.1. Раздел меток (LABEL). Любой выполняемый оператор 
может быть снабжен меткой — целой положительной константой, 
содержащей не более 4-х цифр. Все метки, встречающиеся в про¬ 
грамме, должны быть описаны в разделе LABEL. 

Общий вид: 

LABEL L1,L2,L3...; 

здесь L1,L2,L3...— метки. 

Пример. LABEL 5,10,100; 

Метка отделяется от оператора двоеточием. 

Пример. Пусть оператор А:=В; имеет метку 20. Тогда этот 
оператор выглядит так: 

20:А:=В; 

В приведенном выше примере программы в разделе LABEL 
описаны две метки 15 и 120, используемые в программе. 

8.2.2. Раздел констант (CONST). Если в программе используют¬ 
ся константы, имеющие достаточно громоздкую запись (например, 
число я с 8-ю знаками), либо сменные константы (например, для 
задания варианта программы), то такие константы обычно обозна¬ 
чаются какими-либо именами и описываются в разделе CONST, 
а в программе используются только имена констант. Это делает 
программу более наглядной и удобной при отладке и внесении из¬ 
менений. 

Общий вид: 

CONST А1=С1; А2=С2; ... 

вдесь А1 — имя константы, С1 — значение константы. 

Пример. CONST PI=3.14; С=2.7531; 

В разделе CONST приведенной выше программы вводятся че¬ 
тыре константы, обозначаемые соответственно именами INMAX, 
PI, OUTMAX и EOL. 
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8.2.3. Раздел типов (TYPE). Если в программе вводится тип, 
отличный от стандартного, то этот тип описывается в разделе TYPE: 
TYPE Т1=<вид типа>; 

Т2=<вид типа); 


где Т1 и Т2 — идентификаторы вводимых типов. 

Пример. TYPE COLOR=(RED,YELLOW,GREEN,BLUE); 
Здесь описан тип COLOR, задаваемый перечислением значе- 

В приведенной выше программе вводятся типы FAMILY, 
LLINE и AR. 

8.2.4. Раздел переменных (VAR). Пусть в программе встре¬ 
чаются переменные VII,VI2,...; все они должны быть описаны 
следующим образом: 

VAR V11,V12,...:TYPE1; 

V21,V22,...:TYPE2;... 

здесь VII, V12, ... — имена переменных; TYPE1 — тип перемен¬ 
ных V11.V12,...; TYPE2 - тип переменных Ѵ21,Ѵ22„... 
Пример. VAR K,I,J:INTECER; A,B:REAL; 

Каждая переменная должна быть описана до ее использования 
в программе и отнесена к одному и только одному типу. Названия 
разделов (CONST,TYPE,VAR...) указываются только один раз. 
Пример. 

VAR A:REAL; 

B:REAL; 

Таким образом, в разделе VAR вводится имя каждой перемен¬ 
ной и указывается, к какому типу эта переменная принадлежит. 
Тип переменной можно задать двумя способами: указать имя типа 
(например, REAL,COLOR и т. д.) либо описать сам тип, например, 
ARRAY[1..16] OF CHAR 

Рассмотрим приведенную выше программу (см. п. 8). В разделе 
VAR описаны переменные с именами: 

LINE,L,I,K,SP,C,D,F. 

Для переменных 
L,SP,I,K,C,D,F 

указаны имена соответствующих типов (LLINE, AR, INTEGER, 
REAL, FAMILY). Часть из этих имен — стандартные (INTEGER, 
REAL), а типы LLINE, FAMILY и AR не являются стандартными. 
Эти типы должны быть описаны в разделе TYPE. 

Тип переменной LINE никаким именем не назван и описан од¬ 
новременно с описанием переменной. 



Точно так же можно было бы поступить и для переменных 
L, SP, F: 

L:1..INMAX; 

SP:ARRAY[1..16] OF CHAR; 

F:(FATHER,MOTHER,CHILD); 

В этом случае в разделе TYPE эти типы не описываются. Но пере¬ 
менные М, В и Z (процедуры RLINE) имеют такие же типы, поэтому 
повторять громоздкие описания' нерационально. Есть еще более 
существенная причина для описания типов LLINE, AR и FAMILY 
в разделе TYPE (см. п. 14.4), т. е. таких типов, к которым относят¬ 
ся как переменные PROGRAM, так и переменные процедуры. 

О разделе процедур и функций речь пойдет ниже (см. п. 13 и 14). 

8.2.6. Раздел действий (операторов). Эта часть программы 
начинается с ключевого слова BEGIN и заканчивается словом END, 
после которого должна стоять точка (END.). Раздел действий есть 
выполняемая часть программы, состоящая из операторов. 

9. Операторы 

Под операторами в языке паскаль подразумевают (в отличие от 
фортрана) только описание действий. Операторы отделяются друг 
от друга точкой с запятой. Если оператор стоит перед END, 
UNTIL или ELSE, то в этом случае точка с запятой не ставится. 

9.1. Оператор присваивания 

Общий вид: 

Ѵ:=А; 

вдесь V — переменная, А — выражение, :=» — операция присваи¬ 
вания. Выражение А может содержать константы, переменные, 
названия функций, знаки операций и скобки. 

Пример: F:=3*C+2*SIN(X); 

Вид выражения однозначно определяет правила его вычисле¬ 
ния: действия выполняются слева направо с соблюдением следую¬ 
щего старшинства (в порядке убывания): 

1) NOT; 

2) *, /, DIV, MOD, AND; 

3) +, OR; 

4) =, < >, <, >, <=, >=, IN. 

Любое выражение в скобках вычисляется раньше, чем выполняется 
операция, предшествующая скобкам. 

Присваивание допускаетоя для переменных всех тидов, ва 
исключением типа файл. 
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В операторе Ѵ:=А переменная V и выражение А должны 
иметь один и тот же тип, а для типа SUBRANGE — одно и то же 
подмножество значений. 

Замечание 1. Разрешается присваивать переменной типа 
REAL выражение типа INTEGER. 

Замечание 2. В отличие от фортрана, нельэя присваи¬ 
вать переменной типа INTEGER выражение типа REAL. 

Ѳ.2. Вывод информации на печать 

Общий вид оператора: 

WRITELN(Pj, Р 2 , ..., Р п ); 

здесь WRITELN — имя процедуры вывода (см. п. 13), Рі,Р а , ..., Р п — 
список выражений, значения которых выводятся на печать. 

Кроме значений выражений, на печать можно выводить и про¬ 
извольный набор символов. Для этого набор символов заключают 
в апострофы: 

'<набор символов)' 

Пример 1. WRITELN (' Р=',Р); Этот оператор выполняет" 
ся так: сначала выводятся символы, заключенные в апострофы: 
Р=. Затем выводится значение переменной Р, например 13.5. На 
экране (на листинге) в результате работы оператора появится: 
Р=13.5... 

Пример 2. Вычислить длину окружности радиуса 5,782. 
PROGRAM TIO(OUTPUT);. 

CONST R=5.782; 

VAR L:REAL; 

BEGIN 

L:=2#3.1416*R; 

WRITELN ('.—.L=' ,L) 

END. 

либо 

PROGRAM Tll(OUTPUT); 

VAR R:REAL; 

BEGIN R:=5.782; 

WRITELN('^L-' ,2*3.1416*R) 

END. 

Для оператора WRITELN не требуется оператор типа фортранного 
FORMAT, так как тип выражения (2*3.1416*R) либо тип перемен¬ 
ной (L) определяют некоторую спецификацию, выбранную по умол¬ 
чанию для переменных данного типа (REAL). 
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Первый символ строки на печать не выводится, а служит для 
управления устройством печати: если это 1, то устройство начнет 
печатать с начала новой страницы, если «пробел» — со следующей 
строки, если «+» — без перехода к новой строке, т. е. с наложением 
строк. 

Если оператор вывода на печать составлен без учета роли пер¬ 
вого символа в строке, то могут быть непредвиденные режимы пе¬ 
чати: пропуск страниц, строк, наложение строк. 

Замечание. Фортранная спецификация пХ отсутствует 
в языке паскаль. 

9.3. Примеры заданий для ЭВМ БЭСМ-6 и ЕС ЭВМ 

1. Пусть программист Петров, имеющий шифр РЕТ12, собирает¬ 
ся выполнить программу примера 2 на ЭВМ БЭСМ-6 (ОС «Дубна»). 
Тогда ему надо составить следующее задание: 

♦NAME PETROV 

*PASS:PET12 

*TIME:00.05 

*LIBRARY:11 

♦CALL ALLMEMORY 

♦PASCAL 

PROGRAM T13 (OUTPUT); 

VAR L:REAL; 

. BEGIN 

L:=2«3.1416»5.782; 

WRITELN(' L=',L) 

END. 

♦EXECUTE 
♦END FILE 

«Диспетчерский конец» (для колоды перфокарт). 

2. Если же Петров назовет задание TEST1 и будет выполнять 
программу на ЕС ЭВМ, то задание будет выглядеть так: 

//TEST1 JOB РЕТ12, PETROV, MSGLEVEL=(2,0) 

// EXEC PASCLG 
//PASC.SYSIN DD—♦ 

PROGRAM T13(OUTPUT); 

VAR L:REAL; 

BEGIN 

L:=2»3.1416^5.782; 

WRITELN(' L=',L) 

END. 

//GO.SYSIN DD—♦ 

// 
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9.4. Оператор безусловного перехода GOTO 

Общий вид: 

ЮОТО N; 

метка N , на которую передается управление, должна быть описана 
в разделе LABEL. 

Пример. 

PROGRAM Т (OUTPUT); 

LABEL 7; 

VAR A,B:REAL; 

BEGIN 

GOTO 7 


7:A:=B*3; 


END. 

9.5. Составной оператор 

Если при некотором условии надо выполнить определенную 
последовательность операторов, то их объединяют в один составной 
оператор. 

Составной оператор начинается ключевым словом BEGIN и 
заканчивается словом END. Между этими словами помещаются 
составляющие операторы, которые выполняются в порядке их сле¬ 
дования. После END ставится точка с запятой, а после BEGIN — 
только пробелы (либо комментарий). 

Пример. 

BEGIN 

І:=2; 

К:=І/3 

END; 

Слова BEGIN и END играют роль операторных скобок. Тело 
самой программы также имеет вид составного оператора. После 
последнего END программы ставится точка (END.). Нельзя извне 
составного оператора передавать управление внутрь его. 

9.6. Оператор условного перехода 

Этот оператор имеет две разновидности: IF и CASE. 

9.6.1. Оператор IF. Булевские (логические) выражения могут 
принимать одно из двух значений: TRUE (истина) либо FALSB 
(ложь). 




Простейшими логическими выражениями являются выраже¬ 
ния отношения: 

А1 OP А2 

Здесь А1 и А2 — выражения, а ОР — операция отношения. Опе¬ 
рации отношения в языке паскаль обозначаются так: 

= — равно; 

> — больше; 

< — меньше; 

>= — больше или равно; 

<= — меньше или равно; 

< > — не равно. 

Пример. 3<5; 18>=2; 5<=6; А=В; 

Общий вид оператора IF: 

IF A THEN ST; 

вдесь А — булевское выражение, ST — оператор (простой либо 
составной). 

Если А — «истина», выполняется оператор ST. Если А — 
«ложь», то управление сразу передается следующему за ST опера¬ 
тору. 

Пример. IF А < >0 THEN В:=Х/А; 

Если АфО, то выполняется оператор В:=Х/А; если А*=0, 
то этот оператор пропускается и управление передается дальше, 
к следующему оператору. 

Оператор IF может иметь и такой вид: 

IF A THEN ST1 ELSE ST2; 

здесь А — булевское выражение, ST1, ST2 — операторы. 

Если А — «истина», выполняется оператор ST1; если А— 
«ложь» — выполняется оператор ST2, затем в обоих случаях управ¬ 
ление передается к следующему оператору. 

Замечание 1. Перед ELSE нельзя ставить точку о ва- 

Пример. IF А <> 0 THEN B:=l/A ELSE В:=0; если АфО, 
то переменной В присваивается значение 1/А; если А =■ 0, то — 
значение 0. 

Замечание 2. Синтаксическая неоднозначность оператора 
IF А1 THEN IF А2 THEN ST1 ELSE ST2; 
трактуется так: 

IF A1 THEN 

BEGIN IF A2 THEN ST1 ELSE ST2 END; 

SO 


Пример. 

IF А < > О THEN IF В < > О 
THEN С:=А/В ELSE С:=0; 

К:=—1; 

Если А=эМ), то для В=^=0 С=А/В, а для В=0 С=0, затем выпол¬ 
няется оператор К:=—1. Если А = 0, то управление сразу передает¬ 
ся на К:=—1. 

9.6.2. Оператор CASE. 

Общий вид: 

CASE N OF 
M1,...,MN:ST1; 

K1,...,K1:ST2; 


END; 

A:=B; 

здесь N — переключатель (селектор), MI,KI — метки (I = 
= 1, 2, ...), которые отличаются по смыслу от меток, описываемых 
в разделе LABEL. Переключатель и метки должны быть одного и 
того же скалярного типа, кроме REAL. 

Оператор CASE передает управление тому оператору STI, 
с одной из меток которого совпало значение переключателя N, 
а затем — на следующий за END оператор. 

Пример 1. 

CASE I OF 
2:Х:=0; 

3:Х:=Х*Х; 

100:X:=SIN(X); 

END; 

А:=В; 

Если значение I есть 3, то выполняется оператор Х:=Х*Х; а затем 
управление передастся на оператор А:=В. 

Замечание. Метки оператора CASE не описываются 
в разделе LABEL и па них нельзя переходить оператором GOTO. 

9.7. Операторы цикла 

В языке паскаль имеется три вида операторов цикла: 
WHILE, REPEAT и FOR 

9.7.1. Оператор цикла WHILE. 

Общий вид: 

WHILE A DO ST 
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вдесь А — булевское (логическое) выражение, ST — оператор 
(простой либо составной). 

Выражение А вычисляется перед каждым выполнением опера¬ 
тора ST. Если А — TRUE, то ST выполняется и управление пере¬ 
дается на вычисление А; если А — FALSE, то ST не выполняется 
и происходит выход из цикла. Если первоначальное значение А — 
FALSE, то ST не будет выполнен ни разу. 

Пример. 

WHILE Х< >0 D0 
BEGIN С:=С+1/Х; 

Х:=Х—1 
END; 

В этом примере вычисляется выражение X < > 0. Если оно — 
«истина», (ХфО), будут выполняться операторы С:=С+1/Х; 
Х: = Х.—1 и управление опять будет передано на вычисление 
выражения Х< >0. 

Как только условие X ф 0 не выполняется, управление сразу 
передастся оператору, следующему за END; т. е. цикл повторяется 
пока ХфО. 

Вычислить сумму S=l+l/2+l/3-t-...-j-l/50. 

PROGRAM Nl(OUTPUT); 

VAR S:REAL; N:INTEGER; 

BEGIN 

S:=0; N:=l; 

WHILE N<=50 DO 
BEGIN S:=S+1/N; 

N: = N+1 
END; 

WRITELN('_S=',S) 

END. 

Результат: S = 4.499... 

9.7.2. Оператор цикла REPEAT. 

Общий вид: 

REPEAT STS UNTIL A; 

вдесь STS — группа выполняемых операторов, A — булевское 
выражение. 

Работает оператор так: выполняются операторы STS, вычис¬ 
ляется выражение А; если оно «ложь» (FALSE), то вновь выполняют¬ 
ся операторы STS, если А — «истина» (TRUE) — цикл заканчи¬ 
вается. Если А — «истина» с самого начала, то операторы STS 
выполняются один раз. Если А никогда не принимает значенье 
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«истина», то группа операторов STS выполняется бесконечное числе 
раз, происходит «зацикливание». 

Пример. Рассмотрим такой цикл: 

REPEAT С—С+1/Х; Х:=Х—1 

UNTIL X = О; 

Сначала выполнятся операторы С:=С+1/Х; Х:=Х— 1, затем про¬ 
веряется условие X = 0. Если X =f= 0 (т. е. «ложь»), то повторяет¬ 
ся выполнение указанных операторов; если X = 0 («истина»), то 
управление передается на оператор, следующий за строкой 
UNTIL X = 0; 

Задача 2. Решить задачу 1 с использованием оператора 
REPEAT 

PROGRAM N2(OUTPUT); 

VAR S:REAL;N:INTEGER; 

BEGIN 
S:=0; N;=l; 

REPEAT S:=S+1/N; N:=N+1; 

UNTIL N > 50; 

WRITELN('_S=',S) 

END. 

Результат S=4.499.... 

9.7.3. Оператор цикла FOR. 

Общий вид: 

FOR I:=N1 TO N2 DO ST; 

здесь I — переменная цикла, N1 — начальное значение переменной 
цикла, N2 — конечное значение, ST — оператор (простой либо 
составной). 

I,N1 и N2 должны быть одного и того же скалярного типа, но 
не REAL. I принимает последовательные значения данного типа 
от N1 до N2. Если N1 и N2 — целые числа, а I — целая переменная 
то шаг всегда равен единице. 

Пример. FOR I:=l ТО 20 DO А:=А+1; 

Для I = 1, 2, 3, ..., 20 будет выполняться оператор А:=А+1; 
Если N1 и N2 символьного типа — например, соответственно, име¬ 
ют значения А и Z, то переменная I принимает последовательные 
значения в порядке алфавита: А, В, С, ..., Z. 

Если N1 и N2 типа COLOR (тип COLOR=(RED,YELLOW, 
GREEN,BLUE)), например RED и GREEN соответственно, то пе¬ 
ременная I принимает значения RED,YELLOW,GREEN. 

Цикл по убывающим значениям Параметра I от N2 до N1 имеет 

FOR I: = N2 DOWNTO N1 DO ST; 
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В этом случае параметр I принимает последовательные убываю¬ 
щие значения данного типа от N2 до N1. 

Пример. 

FOR I:=20 DOWNTO 1 DO A:=A+1; 

I изменяется от 20 до 1 с шагом —1. 

Задача 3. Вычислить сумму S = 1+1/2+1/3+. . .1/50 

PROGRAM N3(OUTPUT); 

VAR I:INTEGER; S:REALj 
BEGIN S:=0; 

FOR I:=l TO 50 DO 
S:=S+1/I; 

WRITELN (' S=',S) 

END 

Оператор S:=S+1/I выполняется 50 раз соответственно для 1 = 1; 
2; 3; . . . 50. 

Результат S = 4.499 . , . 

Замечания. 

1. Внутри цикла нельзя изменять ни начальное, ни конечное 
значения переменной цикла, а также само значение переменной 
цикла. 

2. Если в цикле по возрастающим значениям переменной на¬ 
чальное значение больше конечного, то цикл не выполняется ни 
разу. 

Аналогично — для цикла о «DOWNTO», если начальное зна¬ 
чение меньше конечного. 

3. После завершения цикла значение переменной цикла «пор 
тится» (становится неопределенным). 

Пример. 

FOR I:=l ТО 50 DO 
BEGIN 
S:=S+1/I 
K:=I 
END; 

L:=I; 

В этом фрагменте К будет принимать последовательные значения 
1, 2, 3, . . ., 50. После завершения всего цикла выполнится оператор 
L:=I. Будет ошибкой предполагать, что L содержит число 50: пе¬ 
ременная I «испортилась» после окончания цикла. Если необходи¬ 
мо тем не менее запомнить последнее значение переменной 1, то 
следует выполнить оператор L:— К, 


10. Процедура ввода 

Общий вид оператора: 

READ (VI, Ѵ2, . . VN); 

здесь VI, V2, . . VN — идентификаторы переменных. 

Значения переменных пробиваются на картах (либо вводятся 
с терминала) и должны соответствовать типам переменных. Перемен¬ 
ные VI, V2, . . VN могут быть одного из трех типов: INTEGER, 
CHAR (либо SUBRANGE этих типов) и REAL. 

Пример. 

PROGRAM N3(INPUT, OUTPUT); 

VAR А, В, С : REAL; I:INTEGER; 

BEGIN 

READ (A,B,C,I); 

WRITELN ('—A=',A,'—B=',B,'EC=',C,'—I=',I); 

END. 

Для ввода чисел 1.5, 2.15, —1.1, 25 их можно пробить так: 
1.5—2.15—1.1—25 

Если вводится последовательность символов, то пробел воспри¬ 
нимается как символ. В этом случае и конец строки (EOL) тракту¬ 
ется как символ «конец строки», а соответствующая переменная по¬ 
лучает значение «пробел». 

Пример. Пусть R:REAL; I:INTEGER; Cl,C2,C3:CHARt 
переменным R,C1,C2,C3,I надо присвоить соответственно значения 
1.5, 'А', 'В', 'С', 25. На картах эти значения можно расположить 
одним из способов: 

а) 1.5АВС25 

б) +1.5Е+0АВС 

25 

Но нельзя после 1.5 поместить пробел, так как он воспримется 
как значение символьной константы. 

Оператор READ (R,C1,C2,C3,I); введет необходимые данные. 

Конец входного файла и конец строки (карты) входного файла 
можно определить с помощью функций EOF и EOLN соответствен¬ 
но: функция EOF принимает значение TRUE только в случае ис¬ 
черпания всех входных данных (конец файла); если исчерпались 
данные на одной карте (строке входного файла), то значение TRUE 
принимает другая функция — EOLN. 

Если данные вводятся не с перфокарт или с терминала, а с ка¬ 
кого-либо иного файла ввода F (магнитной ленты, диска), то исполь- 
зуется оператор 

READ (F,V1,V2, . . VN);. 
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Вводимые данные могут быть разделены одним или несколькими 
пробелами, но нельзя отделять пробелом знак числа либо одни циф¬ 
ры числа от других. 

11. Процедура вывода 

Процедура WRITE (Р1.Р2, . . . PN) дописывает в выходной 
файл OUTPUT значения выражений Р1,Р2, . . . PN. 

Процедура WRITELN (Р1,Р2, . , . PN)' дописывает в OUTPUT 
аиаченпя Р1,Р2,РЗ, . . . PN, заносит признак конца строки EOLN 
■ выдает эту строку на печать. 

Пример. Выдача на печать значений А, В может быть осу¬ 
ществлена по-разному: 

a) WRITE(A); б) WRITE(A); в) WRITELN(A, В); 

WRITE(B); WRITELN(B); 

WRITELN; 


11.1. Формат вывода на печать 

Транслятор отводит по умолчанию определенное число позиций 
для величин каждого стандартного типа. 







REAL 

Тип 

CHAR 

ALFA 

BOOLEAN 

INTEGER 

M 

N 

Число позиций на 
БЭСМ-6 

1 

6 

8 

10 

14 

4 

Число позиций на 
ЕС ЭВМ 

1 

8 

5 

12 

24 

16 


Пример 1. 

PROGRAM М (OUTPUT); 

VAR I,J:INTEGER; 
v BEGIN 
I:=2; 

J:=15; 

WRITELN (VJ=\P— J=',J) 

END. 

Результат работы программы на БЭСМ-6 будет выглядеть так: 
на ЕС ЭВМ: 

1=ыыи^*—= — -----15 

36 



















Программист имеет возможность задать ширину поля (число 
позиций) М для выводимой величины Р: 

WRITE (Р1:М1, Р2:М2, . . ,PN:MN); 

Если МК избыточна, то поле [слева дополняется] пробелами; 
если МК недостаточна для размещения РК, то транслятор сам уве¬ 
личивает ширину поля так, чтобы уместилось РК, а для БЭСМ-6 
слева оставляет еще один'пробел (кроме величин типа INTEGER > 
где пробел не предусмотрен). 

Для вещественных значений можно задавать поля М и N, где 
М — общее число позиций, отводимых под все число РК, N — чис¬ 
ло позиций под его дробную часть. 

Пример: WRITE (Р:10:2); 

Здесь под Р отводится 10 позиций, а 2 из них — под дробную 
часть. 

Пример. Оператор 

(WRITELN (3.14159:0:2, 1=1, 3.14:7, 56, 'РАРА':5); 
содержит пять выражений: 

Р1:3,14159 

Р2:1 =1 

Р3:3.14 

Р4:56 

Р5:'РАРА' 

Они изобразятся на листинге следующим образом: 

а) на БЭСМ-6 

3.14Е+00 TRUE 3.1400Е+00 56 PAPA 

б) на ЕС ЭВМ этот оператор является ошибочным: нельзя ука¬ 
зывать нулевую ширину поля и необходимо, чтобы было М > N. 


12. Сложные типы переменных 

Базируясь на простых типах, можно строить и более сложные 
типы переменных. 

Переменные сложных типов состоят из отдельных компонент 
Тип компонент называют базовым типом данного сложного типа. 

Таких сложных типов в языке паскаль четыре: массивы, запи¬ 
си, файлы и множества. 

12.1. Массивы (ARRAY) 

Массив — структура, состоящая из фиксированного числа ком - 
цопент одного типа. 


Общий вид описания массива (в разделе VAR): 

A:ARRAY [TYPE1,TYPE2, . . .TYPEL] OF TYPEC; 

вдесь A — имя массива; TYPE1.TYPE2, . . . TYPEL — типы ин¬ 
дексов; TYPEC — тип компонент (базовый тип). 

Количество индексов (L) определяет размерность массива. Ин¬ 
дексы могут быть любых скалярных типов, кроме REAL и 
INTEGER (не путать с SUBRANGE!). Индексы разделяются запя¬ 
тыми и заключаются в квадратные скобки. 

П р и м е р 1. Пусть в памяти ЭВМ расположена таблица чисел, 
представляющая собой двумерный массив М: 

15 10 2 30 

7 19 55 И 

22 18 6 3 

Каждое число в таблице имеет тип INTEGER это — тип компонент 
(TYPEC). 

Первый индекс — номер строки таблицы — может в данном 
примере быть от 1 до 3; второй индекс — номер столбца — может 
меняться от 1 до 4. 

Таким образом, описание этого массива выглядит так: 

M:ARRAY[1..3, 1..4] OF INTEGER; 

Задав конкретные значения индексов, можно выбрать определенную 
компоненту массива. Например, оператор N:=M [1, 2] зашлет в N 
значение, стоящее в 1-й строке, 2-м столбце, т. е. 10. 

12.1.1. Упакованные массивы. Если перед названием типа сто¬ 
ит ключевое слово PACKED, то при трансляции генерируется прог¬ 
рамма, плотно упаковывающая данные в ячейки памяти. Такая 
программа экономит память, но не время счета, так как для работы 
с элементами такого массива, как правило, требуется предваритель¬ 
ная распаковка. 

К упакованному массиву Z можно применить стандартные про¬ 
цедуры PACK и UNPACK. 

Пусть массив В имеет тип ARRAY [M..-N] OF TYPEC, 
а массив Z— PACKED ARRAY [U..V] OF TYPEC, где N-M > V-U; 
Тогда 

PACK(B,I,Z) означает «упаковку» элементов, начиная с І-й ком¬ 
поненты массива В, в массив Z. 

UNPACK(Z,B,I) означает «распаковку», массива Z в массив В, 
начиная с І-го элемента массива В. Строка из N символов текстовой 
информации есть не что иное, как упакованный массив: PACKED 
ARRAY [1..N] OF CHAR; 
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Тип ALFA — частный случай упакованного массива: 

PACKED ARRAY [1..8] OF CHAR на ЕС ЭВМ, 

PACKED ARRAY [1..6] OF CHAR на БЭСМ-6. 

13. Процедуры 

При решении разных задач часто возникает необходимость 
проводить вычисления по одним и тем же алгоритмам, например, 
вычислять корень уравнения / ( х) = 0. В языке паскаль предусмот 
рена возможность объединения любой последовательности операто¬ 
ров в самостоятельную подпрограмму, называемую процедурой. 
Процедуры, используемые во многих-задачах, помещены в библио¬ 
теку процедур и находятся в памяти ЭВМ (оперативной либо внеш¬ 
ней). 

Те алгоритмы, которые программистом оформляются как про¬ 
цедуры в его собственной программе, должны начинаться с заго¬ 
ловка и кончаться оператором END; 

Процедура паскаля — аналог фортранной подпрограммы. 

Общий вид заголовка: 

PROCEDURE N (Р1:Т1; Р2:Т2; VAR РЗ:ТЗ, . . .); 

здесь N — имя процедуры, РІ — формальные параметры, ТІ — 
их типы. 

Процедура имеет ту же структуру, что и главная программа 
(PROGRAM): разделы LABEL, CONST, TYPE, VAR и выполняе¬ 
мую часть (от BEGIN до END;). 

Процедура помещается в главной программе после раздела 
VAR и перед BEGIN программы. 

Пример. 

PROGRAM МА (INPUT, OUTPUT); 

VAR A:INTEGER; 

B:REAL; C:CHAR; 

PROCEDURE N (P1:REAL; P2:CHAR); 

BEGIN (* НАЧАЛО РАБОТЫ ПРОЦЕДУРЫ *) 


END; (* КОНЕЦ ПРОЦЕДУРЫ *) 

BEGIN (* НАЧАЛО РАБОТЫ PROGRAM *) 


END. 

Формальные параметры — это наименования переменных, че¬ 
рез которые передается информация из программы в процедуру 
либо из процедуры в программу. 

Пусть, например, процедура SQ осуществляет решение квадрат¬ 
ного уравнения ах 2 -J- Ъх -{- с = 0. Тогда она должна иметь пять 




формальных параметров: для значений коэффициентов а, Ь, с и для 
результатов: ц и х 2 . 

Для того чтобы запустить процедуру в работу, необходимо к ней 
обратиться (ее вызвать). Вызов процедуры N производится операто¬ 
ром вида 

N(P1,P2,P3, . . 

Здесь N — имя процедуры, PI, Р2, РЗ — фактические параметры. 

При вызове процедуры машина производит следующие дейст¬ 
вия. Устанавливает взаимно однозначное соответствие между фак¬ 
тическими и формальными параметрами, затем управление передает 
процедуре. После того, как процедура проработает, управление пе¬ 
редается вызывающей программе на оператор, следующий за вызовом 
процедуры. 

Соответствие между фактическими и формальными параметрами 
должно быть следующим: 

а) число фактических параметров должно быть равно числу 
формальных параметров; 

б) соответствующие фактические и формальные параметры 
должны совпадать по порядку следования и по типу. 

Соответствующие параметры не обязательно должны быть оди¬ 
наково обозначены. 

Пример. Вызвать процедуру SQ можно так: 

SQ(P, Q, R, Y, Z); 

Здесь P,Q,R коэффициенты квадратного уравнения, a Y и Z — кор¬ 
ни этого уравнения. Если вызвать SQ оператором SQ(X1,X2,A,B,C); 
то машина воспримет Х1,Х2,А как коэффициенты уравнения, 
а корни зашлет в переменные В и С. 

Пример. Составим процедуру SQ решения квадратного 
уравнения ах ъ + Ъх + с = 0 в предположении, что дискриминант 
неотрицателен. 

PROCEDURE SQ(A,B,C:REAL; VAR XI, X2:REAL); 

VAR D:REAL; 

BEGIN 

D; = B * В —4 * A * C; 

Xl: = (—B+SQRT(D))/(2 * A); 

X2:=(— В —SQRT(D))/(2 * A) 

END; 

С помощью этой процедуры решим квадратное уравнение 5,7 у 2 — 
- 1,2 у - 8,3 = О 

PROGRAM S (OUTPUT); 

VAR Yl, Y2:REAL; 

PROCEDURE SQ (A,B,C:REAL; VAR XI, X2:REAL); 
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VAR D:REAL; 

BEGIN 

D:=B * B—4 * A * C; 

Xl:=(—B+SQRT(D))/(2 * A); 

S2:=(—B—SQRT(D))/(2 * A) 

END; 

BEGIN (* НАЧАЛО РАБОТЫ ПРОГРАММЫ *) 

SQ(5.7, —1.2, -8.3, Yl, Y2); 

WRITELN (' Yl=\ Yl,' Y2=\ Y2) 

END. 

Результат Xl=0.49, X2=-5.2. 

Как видно из примера, процедура помещается после деклара¬ 
тивных операторов программы. Первым выполняется оператор обра¬ 
щения к процедуре 

SQ(5.7, -1.2, -8.3, Yl, Y2); 

Здесь первые три фактические параметра соответствуют формаль¬ 
ным А, В, С, а последние два фактических параметра Y1 и Y2 со¬ 
ответствуют формальным XI и Х2. После того как процедура «за¬ 
пустится», в ячейки А, В, С попадут числа 5.7, —1.2, —8.3 и начнут 
выполняться операторы D:= . .., Х1:=. . ., Х2:=. . . 

После окончания работы процедуры управление возвратится 
к оператору WRITELN, который отпечатает результат. Параметры 
процедур могут быть четырех видов: параметры-значения, парамет¬ 
ры-переменные, параметры-процедуры , параметры-функции. 

13.1. Параметры-значения 

Если в качестве формального параметра указана переменная, 
то такой параметр и есть параметр-значение. Примерами таких па¬ 
раметров служат параметры А, В и С в процедуре SQ: 

PROCEDURE SQ (A,B,C:REAL; VAR XI, X2:REAL); 

В этом случае фактическим параметром,'соответствующим А либо В 
либо С, может быть любое выражение соответственного типа, в част¬ 
ности, константа. 

Например, обратиться к SQ можно так: 

SQ((25./3+2)*2, —1.5, (8.2—3.1)/3, XI, Х2); 

Для параметров-значений машина при вызове процедур произ¬ 
водит следующие действия: выделяет место в памяти для каждого 
формального параметра, вычисляет значение фактического пара¬ 
метра и засылает его в ячейку, соответствующую формальному па¬ 
раметру. 
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Если фактический параметр есть имя переменной, например, R, 
то значение этой переменной пересылается в соответствующий фор¬ 
мальный параметр, например, А. На этом всякая связь между А и R 
обрывается. 

Если даже фактический и формальный параметры одинаково 
обозначены, в памяти ЭВМ эти параметры занимают разные ячейки. 
Это полезно знать, чтобы не допустить распространенной среди на¬ 
чинающих программистов ошибки — пытаться передать информа¬ 
цию из процедуры в вызывающую программу через параметр-зна¬ 
чение. 

Пример. 

PROGRAM Т2 (OUTPUT); 

VAR IiINTEGER; A:REAL; 

PROCEDURE P(I:INTEGER); 

BEGIN 

I:=I*2 

END; 

BEGIN (* НАЧАЛО T2 •) 

I:=2; 

P(i); 

WRITELN ('— I=',I) 

END. 

В T2 происходит засылка числа 2 в ячейку, отведенную для пере¬ 
менной I, затем идет обращение к процедуре Р с фактическим пара¬ 
метром 1=2. При этом значение 2 пересылается в другую ячейку, 
отведенную для формального параметра I. В этой ячейке после вы¬ 
полнения оператора І: = І*2 появляется число 4. Но после возврата 
из процедуры на оператор WRITELN программа Т2 «знает» только 
одну переменную I, которая по-прежнему содержит число 2. Поэто¬ 
му программа напечатает 1=2. 

Если формальный параметр есть параметр-значение, то соот¬ 
ветствующим фактическим параметром должно быть выражение 
того же типа, что и формальный параметр. 

13.2. Параметры-переменные 

Если перед именем формального параметра стоит ключевое сло¬ 
во VAR, то такой параметр есть параметр-переменная. Примерами 
таких параметров служат XI и Х2 в заголовке 

PROCEDURE SQ (A,B,C:REAL; VAR XI, X2:REAL); 

Фактический параметр, соответствующий параметру-перемен¬ 
ной, может быть только переменной (не константой и не выраже- 
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При вызове процедур (функций) параметры-переменные обра¬ 
батываются так: для формального параметра используется именно 
та ячейка, которая содержит соответствующий фактический пара¬ 
метр. 

Пример. При вызове процедуры SQ оператором SQ(P,Q, 
R,Y,Z) для переменных XI и Х2 используются непосредственно те 
ячейки, которые отведены для Y и Z. Поэтому оператор присваива¬ 
ния Х1:=(— B+SQRT(D))/(2*A) засылает полученное значение 
в ячейку Y. 

Под формальные и фактические параметры-значения трансля¬ 
тор отводит разные области памяти. Поэтому результат выполнения 
процедуры может быть передан только через параметр-переменную. 

Пример. 

PROGRAM L1351 (OUTPUT); 

VAR A,B:INTEGER; 

PROCEDURE H (X:INTEGER; VAR Y:INTEGER); 

BEGIN 

X:=X-H; Y:=Y-t-l; 

WRITELN (X,Y) 

END; 

BEGIN A:=0; B:=0; 

H(A,B); 

WRITELN (A,B) 

END. 

Результаты, выдаваемые процедурой H:1 и 1; программа пе 
чатает 0 и 1. 

Разберем этот пример: фактический параметр А соответствует 
формальному параметру-значению X, а фактический параметр В — 
формальному параметру-переменной Y. Под параметры А и X от¬ 
ведены две разные ячейки памяти, а под В и Y — одна и та же 
ячейка. 

При обращении к Н(А,В) из ячейки А пересылается значение О 
в ячейку X, а в ячейку Y засылается адрес ячейки В, содержащей О, 
так как в процедуре Н параметр X — это параметр-значение, a Y — 
параметр-переменная. 

При выполнении оператора Х: = Х+і в ячейку X прибавляет¬ 
ся 1 и в ячейке X окажется 1, а в ячейке А по-прежнему — 0. 

Выполнение оператора Y:=Y+1 имеет следующий смысл: 
«взять число из ячейки, адрес которой находится в Y (т. е. иа ячей¬ 
ки В), прибавить 1 и заслать в ту же ячейку (т. е. в В).» 

Поэтому в результате выполнения оператора Y:=Y + 1 зна¬ 
чение ячейки В станет 1. Оператор печати иэ процедуры WRITELN 
(X, Y) выдаст содержимое ячейки X и ячейки Y, т. е. і и 1. Опера¬ 
тор печати WRITELN (А, В) в программе напечатает содержимое А, 
которое осталось равным 0, и содержимое ячейки В, которое равно 1. 

•43 



Процедуры в паскале допускают рекурсию, т. е. процедур 
может вызвать сама себя. 

Если в процедуре Р есть обращение к процедуре Q, описанной 
ниже, то перед описанием Р процедура Q декларируется как 
FORWARD: после заголовка процедуры Q ставится двоеточие, а за¬ 
теи ключевое слово FORWARD *). 

Пример. 

PROCEDURE Q(X:Tl):FORWARD; 

PROCEDURE P(X:Y); 

BEGIN 

Q(A) 

END; 

PROCEDURE Q; 

BEGIN 

P(B) 

END; 

14. Функции 

Функция в паскале является аналогом фортранной подпро¬ 
граммы-функции и состоит из заголовка и блока. 

Общий вид заголовка: 

FUNCTION F(P1:T1; . . .PN:TN):TYPEF; 

вдесь F — имя функции; Р1, . . .PN — формальные параметры; 
Т1, . . .TN, ... — их типы; TYPEF — тип результата. 

Самостоятельный алгоритм можно оформить как функцию в том 
случае, если в качестве результата получается одно единственное 
значение. 

К функциям обращение выглядит проще, чем к процедурам. 
Для вызова функции достаточно указать ее имя (с фактическими па¬ 
раметрами) в любом выражении. 

Пусть, например, функция MAX (X,Y:REAL):REAL выдает 
значение большего из параметров X,Y. Тогда оператор R: = 
=MAX(T,P*Q)*B/2 найдет большее из значений Т и P*Q, затем вы¬ 
полнит дальнейшие действия и зашлет результат в R. 

После работы функции результат присваивается имени функ¬ 
ции, поэтому в блоке функции обязательно должен присутствовать 
оператор присваивания вида: 

(имя функции>:= (результат); 

*) Обращаем внимание, что в этом случае параметры процедуры 
описываются только в операторе с FORWARD. В заголовке самой 
процедуры параметры опускаются. Подробнее о рекурсии сказано 
в п. 14.3. 




Пример. Вычисление большего из двух данных чисел можно., 
оформить таким образом. 

FUNCTION MAX (X,Y:REAL):REAL; 

BEGIN 

IF X>Y THEN MAX:=X ELSE MAX:=Y 
END; 

Процедуры, функции, программы часто называют модулями. 

14.1. Побочные эффекты 

1. Если в теле процедуры (функции) перевычисляется некото¬ 
рая нелокальная переменная, т. е. такая переменная, которая опи¬ 
сана в других модулях, содержащих данный, то могут наблюдаться 
непредвиденные последствия. 

Пример. Пусть функция F (X) имеет такой вид: 

FUNCTION F(X:REAL):REAL; 

BEGIN 

V:=V*X; 

F:=SQRT(V)+X 

END; 

t. e. в процессе работы функция F изменяет некоторую нелокальную 
величину V. Рассмотрим теперь два выражения, которые вычисля¬ 
ются в программе, содержащей F(X): 

F(X)+V и V+F(X). 

Эти выражения дадут разные результаты, так как в первом случае 
к F(X) прибавится уже измененное значение V (в'процессе работы F), 
а во втором случае к первоначальному значению V добавляется F(X). 

2. Вторая опасность заключается в неправильном использова¬ 
нии параметров-переменных в качестве формальных параметров. 

Пример. Найти 5-й член последовательности 
а п+і = За п — 2, 

Оі = 1 . 

Опасно оформлять функцию в виде 

FUNCTION F (VAR A,N:INTEGER):INTEGER; 

VAR LINTEGER; 

BEGIN 

FOR I:=l TO N DO A:=3*A—2; 

F: = A 
END; 

Так, если обратиться к этой функции оператором B:=F(1,5), будет 
«испорчена» константа 1, так как в ячейку памяти (первый фактиче¬ 
ский параметр), содержавшую ранее единицу, функция F поместит 
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текущий член последовательности, и при дальнейшей работе про¬ 
граммы вместо 1 будет использоваться значение а ъ . Такие ошибки 
бывает трудно найти, поэтому полезно придерживаться следующе¬ 
го правила: в функциях не использовать параметры-пере¬ 
менные. 

14.2. Параметры-процедуры. Параметры-функции 

Такие параметры в списке формальных параметров предваряют¬ 
ся ключевыми словами PROCEDURE и FUNCTION соответственно. 

Пример 1. PROCEDURE P(PROCEDURE А); Здесь про¬ 
цедура Р имеет один параметр-процедуру А. 

Пример 2. 

PROCEDURE Q (FUNCTION S:REAL; B:REAL); 

Процедура Q имеет два параметра: параметр-функцию 8 и 
параметр-значение В. 

Замечание 1. На ЕС ЭВМ имеются отличия от стандарта 
в описании параметров-функций (процедур). Транслятор требует 
перечислить все параметры функции, являющейся параметром. 

Пример 3. PROCEDURE Q (FUNCTION F(I:INTEGER): 
REAL); Здесь формальный параметр F — функция от одного це¬ 
лого аргумента, результат F — вещественный. 

Если вызывается процедура (функция), имеющая параметр- 
процедуру (функцию), то соответствующий фактический параметр 
должен совпадать по типу результата с формальной процедурой 
(функцией). Программисту необходимо внимательно следить за 
совпадением типов результатов, так как в случае нарушения этого 
правила никакой диагностики не выдается, & программа работает 
неверно. Поясним на примере. 

Обратиться к процедуре Q(FUNCTION F(I:INTEGER):REAL) 
можно так: Q(SINUS(K)); где SINUS(K) есть SIN(K). Если К имеет 
тип INTEGER, тогда SINUS(K) — типа REAL. Это совпадает 
с типами I и F в заголовке Q. Нельзя, однако обратиться к Q с функ¬ 
цией ABS(K), а именно: Q(ABS(K)); в этом случае тип формаль¬ 
ного параметра F—REAL, а тип фактического ABS(K) — 
INTEGER, т. е. формальный и фактический параметры не совпада¬ 
ют по типу. 

Задача. Составить процедуру выдачи таблицы произволь¬ 
ной вещественной функции. Процедура должна иметь следующие 
формальные параметры: вещественную функцию, нижнюю границу 
аргумента, верхнюю границу аргумента, шаг по аргументу. 

PROCEDURE TAB (FUNCTION F:REAL; 

LOW, UP, STEP:REAL); 

VAR X:REAL; 

J:INTEGER; 




BEGIN 

X:=LOW; 

FOR J:=0 TO TRUNC ((UP~LOW)/STEP) DO 
BEGIN 

WRITELN (X:10,F(X):10); 

X: = X+STEP 
END 
END; 

(см. Замечание 2) 

Выражение TRUNC ((UP—LOW)/STEP) дает число точек, 
в которых вычисляется функция F (при счете от 0). 

Если к процедуре TAB обратиться оператором 
TAB (SIN, 0.0, 6.4, 0.33); 

то будет напечатана таблица функции sin х для а: от 0 до 6.4 с шагом 
0.33. Алгоритмы, употребляемые наиболее часто различными поль¬ 
зователями, оформляются в виде процедур и функций, помещаются 
в память машины и составляют библиотеку стандартных программ 
(модулей). 

Замечание 2. Многие трансляторы, в том числе на БЭСМ-6 
и ЕС ЭВМ, не допускают использования стандартных функций в ка¬ 
честве фактических параметров. Для таких трансляторов оператор 
TAB (SIN, 0.0, 6.4, 0.33); 

является ошибочным, так как SIN(X) — стандартная функция. Это 
ограничение можно легко обойти, введя новую функцию, эквива¬ 
лентную стандартной. 

Пример. Введем функцию SINUS(X) таким образом: 
FUNCTION SINUS (X:REAL):REAL; 

BEGIN 

SINUS:=SIN(X) 

END; 

Тогда составить таблицу sin x можно, обратившись к процедуре TAB 
следующим оператором: TAB(SINUS, 0.0, 6.4, 0.33); 

При использовании параметров-процедур и параметров-функ¬ 
ций надо иметь в виду возможные осложнения. 

1. Ошибки, допускаемые программистом в процедурах, имею¬ 
щих параметры-процедуры и параметры-функции, иногда бывает 
трудно найти, что ведет к длительной отладке таких процедур. 

2. Если число и тип параметров формального параметра-функ¬ 
ции не совпадает с числом либо типом параметров соответствующего 
фактического параметра-функции, то такая программа не может 
быть правильно выполнена, а многие версии трансляторов с паскаля 
не выдают в этом случае никакой диагностики. 
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3.. Правила языка паскаль требуют, чтобы фактические пара¬ 
метры-процедуры (функции) содержали только параметры-значе¬ 
ния. Это накладывает серьезные ограничения на использование 
параметров-процедур и параметров-функций. 

14.3. Рекурсии 

В языке паскаль процедуры и функции могут вызывать сами 
себя, т. е. обладать свойством рекурсивности. 

Пример. Выдать на печать в обратном порядке цифры це_ 
лого положительного числа N. Составим процедуру REVERSE 
PROCEDURE REVERSE (N:INTEGER); 

BEGIN 

WRITE (N MOD 10); 

IF (N DIV 10)< > 0 

THEN REVERSE (N DIV 10) 

END; 

Рассмотрим работу этой процедуры для числа N = 153. Оператор 
WRITE (N MOD 10) выдает в файл OUTPUT остаток от деления 
чпсла 153 на 10, т. е. последнюю цифру 3. Оператор 
IF (N DIV 10) < > 0 
THEN REVERSE (N DIV 10) 

проверяет целую часть частного 153/10 = 15 на ноль. Если целая 
часть не ноль, то с этим значением (15) идет вновь обращение к 
процедуре REVERSE. Оператор WRITE (N MOD 10) дописывает 
в файл OUTPUT остаток отделения 15 на 10, т. е. 5; затем со зна¬ 
чением 15/10 = 1 идет обращение к REVERSE. После вывода циф¬ 
ры 1 оператором WRITE (N MOD 10) проба N D.IV 10 на ноль 
передает управление на конец процедуры. В файле OUTPUT будет 
записано число 351. Его можно выдать оператором WRITELN. 

Таким образом, однократное обращение извне к процедуре 
REVERSE вызвало трехкратное ее срабатывание. Условие полного 
окончания работы рекурсивной процедуры должно находиться в 
самой процедуре (иначе произойдет зацикливание). 

Рекурсивные процедуры и функции (модули) имеют одну из 
двух форм: прямую рекурсию и косвенную рекурсию. В первом слу¬ 
чае модуль содержит оператор вызова этого же модуля, как в при¬ 
веденной выше процедуре REVERSE. Во втором случае один мо 
дуль вызывает какой-либо другой модуль, который либо сам либо 
посредством других модулей вызывает исходный модуль. 

Пример. Если А, В — имена модулей, то схема вызова 
может быть такой: А —> В —» А. 

В случае косвенной рекурсии возникает проблема: как и где 
описать вызываемый модуль. По правилам языка паскаль каждый 



вызываемый модуль должен быть описан до его вызова. Но если 
модуль А вызывает В, а В вызывает А, то получается замкнутый 
круг. Для подобных ситуаций принято следующее правило: один 
из рекурсивных модулей, вызывающих друг друга, описывается 
предварительно следующим образом: 

PROCEDURE Р. (<список форм, параметров»; FORWARD; 

здесь Р — имя процедуры, FORWARD — ключевое слово. Это 
описание указывает транслятору, что текст процедуры Р помещен 
ниже. 

Подобным же образом описывается функция: к оператору 
FUNCTION добавляется слово FORWARD. Список формальных 
параметров и тип результата (для FUNCTION) включается только 
в это предварительное описание и опускается в заголовке соот¬ 
ветствующего модуля. 

Пример. Пусть функция В при работе вызывает функцию Д, 
которая, в свою очередь, вызывает функцию В. Тогда эти модули 
можно описать так: 

FUNCTION B(X:INTEGER):REAL; FORWARD; 

FUNCTION A(Y:INTEGER):REAL; 

BEGIN 

A:=B(I) + 3.5 
END; 

FUNCTION B; 

BEGIN 

B=A(D)—1.8 
END; 

Заголовок (FUNCTION В) перед текстом функции В содержит 
Только имя этой функции (список формальных параметров и тип 
функции не указываются). 

14.4. Локальные и глобальные переменные 

Напомним, что каждый модуль (процедура, функция, програм¬ 
ма) состоит из заголовка (PROCEDURE..., FUNCTION..., PROG¬ 
RAM...) и блока. 

Пример 1. 

PROCEDURE P(A:REAL; VAR X:REAL); (* ЗАГОЛОВОК *) 

VAR K:INTEGER; (* НАЧАЛО БЛОКА *) 

BEGIN 

END; (* КОНЕЦ БЛОКА *) 


49 



Вложенные процедуры. Если блок какой-либо процедуры Р1 
содержит внутри процедуру Р2, то говорят, что Р2 вложена в Р1. 
Пример. 

PROCEDURE PI (X:REAL; VAR Y:REAL); 

VAR C:INTEGER; 

PROCEDURE P2 (VAR ZrREAL); 


END; 

BEGIN 

END; 

Любые идентификаторы, введенные внутри какого-либо блока 
(процедуры, функции) для описания переменных, констант, типов, 
процедур, называются локальными для данного блока. Такой блок 
вместе с вложенными в него модулями называют областью дейст¬ 
вия этих локальных переменных, констант, типов и процедур. 

Пример 2. ' 

PROCEDURE Т1; 

VAR Yl, Y2:REAL; 

PROCEDURE SQ1; 

VAR А,В, C,D:REAL; 

BEGIN 

(* ПЕРЕМЕННЫЕ А, В, C, D ЯВЛЯЮТСЯ ЛОКАЛЬНЫ¬ 
МИ flflflSQl, ОБЛАСТЬ ИХ ДЕЙСТВИЯ - ПРОЦЕДУРА 
SQ1 •) 


END; 

BEGIN 

(* ПЕРЕМЕННЫЕ Yl, Y2 - НЕЛОКАЛЬНЫЕ ДЛЯ SQ1 - 
ОБЛАСТЬ ИХ ДЕЙСТВИЯ - Т1 И SQ1 *) 


END; 

Константы, переменные, типы, описанные в блоке PROGRAM, 
называют глобальными. Казалось бы, проще иметь дело вообще 
только с глобальными переменными, описав их все в PROGRAM. 
Но использование локальных переменных позволяет системе лучше 
оптимизировать программы, делает их более наглядными и умень¬ 
шает вероятность появления ошибок. 

При написании программ, имеющих вложенные модули, не¬ 
обходимо придерживаться следующих правил: 

1. Описывать идентификаторы в том блоке, где они исполь- 
вуются, если это возможно, 
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2. Если один и тот же объект (переменная, тип, константа) 
используется в двух и более блоках, то описать этот объект надо 
в самом внешнем из них, содержащем все остальные блоки, исполь¬ 
зующие данный объект. 

3. Если переменная, используемая в процедуре, должна со¬ 
хранить свое значение до следующего вызова этой процедуры, то 
такую переменную надо описать во внешнем блоке, содержащем 
данную процедуру. 

Локализация переменных дает программисту большую свободу 
в выборе идентификаторов. Так, если две процедуры А и В пол¬ 
ностью отделены друг от друга (т. е. не вложены одна в другую), 
то идентификаторы в них могут быть выбраны совершенно произ¬ 
вольно, в частности, могут повторяться. В этом случае совпадаю¬ 
щим идентификаторам соответствуют разные области памяти, со¬ 
вершенно друг с другом не связанные. 

Пример 3. 

PROGRAM Т2 (OUTPUT); VAR K:INTEGER; 

PROCEDURE A; 

VAR X,Z:REAL; 

BEGIN (. НАЧАЛО A *) 

(. ЧЕРЕЗ X, Z ОБОЗНАЧЕНЫ ДВЕ ВЕЛИЧИНЫ — 

ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ ДЛЯ А; 

К - ГЛОБАЛЬНАЯ ПЕРЕМЕННАЯ ДЛЯ А •) 


END; (* КОНЕЦ А .) 

PROCEDURE В; 

VAR X,Y:INTEGER; 

BEGIN (* НАЧАЛО В *) 

(• ЧЕРЕЗ X, Y ОБОЗНАЧЕНЫ ДВЕ ДРУГИЕ ВЕЛИЧИ¬ 
НЫ — ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ ДЛЯ В; К — 
ГЛОБАЛЬНАЯ ПЕРЕМЕННАЯ ДЛЯ В •), 


END; (* КОНЕЦ В *) 

BEGIN (* НАЧАЛО РАБОТЫ PROGRAM Т2 *) 

(* К — ЕДИНСТВЕННАЯ ПЕРЕМЕННАЯ, КОТОРУЮ 
МОЖНО ИСПОЛЬЗОВАТЬ В Т2 •) 


END. 

Если один и тот же идентификатор описан в блоке В и второй 
раз описан во вложенном в В блоке С, то надо помнить, что эти 
два одинаковых идентификатора соответствуют разным ячейкам 
памяти. 

П р и м е р 4. 

PROGRAM ТЗ (OUTPUT); 

VAR I:INTEGER; A:REAL; 





PROCEDURE P(VAR D:REAL)j 
VAR IiINTEGER; 

BEGIN (* НАЧАЛО P *) 

I:=3; 

D:=I+10*D 
END; (* конец P *) 

BEGIN (* НАЧАЛО T3 *)' 

A:=2.0; 

I:=15; 

P(A); 

WRITELN (\_I=',I, <А=',А) 

END. 

Глобальным переменным I и А отводятся две ячейки памяти. Пер¬ 
выми выполняются операторы А:=2.0 и Іі= 15. Затем вызывается 
процедура Р(А). В процессе работы Р отводится ячейка для ло¬ 
кальной переменной I и туда засылается число 3. После оконча¬ 
ния работы процедуры Р эта ячейка I программой «забывается». 
После возврата на оператор WRITELN программа «знает» только 
одну ячейку I — глобальную, т. е. ту, которая содержит число 15. 
Поэтому программа ТЗ выдаст на печать I = 15, А = 23.0, 
так как А = 3 + 10*2. 

Если локальная и глобальная переменная принадлежит к одно¬ 
му и тому же сложному типу, то этот тип надо описать в разделе 
TYPE, а сами переменные описывать через этот общий тип. 
Пример. 

PROGRAM Т1 (OUTPUT); 

TYPE AB=ARRAY [1..3] OF REAL; 

VAR A:AB; 

PROCEDURE Q; 

VAR B:AB; 


END. 

В этом примере переменные А и В описаны через общий тип АВ. 
Если же локальная и глобальная переменные описаны одинаково, 
но не через общий тип, то программа может «не понять», что эти 
переменные принадлежат одному типу. 

Пример. 

PROGRAM Т2 (OUTPUT); 

VAR A:ARRAY [1..3] OF REAL; 

PROCEDURE Q; 

VAR B:ARRAY [1..3] OF REAL; 


END. 
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В этом примере переменные А и В — одинаковые массивы, т. е. 
типы этих переменных одинаковы, но программа тем не менее «не 
считает», что А п В — принадлежат одному типу. Это происходит 
из-за того, что описание массивов дано в разных блоках. 

15. Стандартные процедуры и функции 

Наиболее часто употребляемые библиотечные процедуры и 
функции называют стандартными. Для работы с ними не надо ни 
заказывать библиотеку, ни описывать их предварительно в про¬ 
грамме. 

Часть приводимых ниже процедур (от BESET до DISPOSE) 
будут описаны во II части книги, поэтому при первом чтении их 
можно опустить. 

1) OBD(C) — выдает порядковый номер символа С в упоря¬ 
доченной последовательности символов, задаваемой транслятором. 
Нумерация начинается с нуля. 

2) CHR(I) — выдает символ с порядковым номером I. Функ¬ 
ции ORD(C) и CHR(I) взаимнообратны, т. е. CHR(ORD(C))=C 
и ORD(CHR(I))=I. В силу упорядоченности последовательности 
символов, ORD(Cl) < ORD(C2), если Cl < С2 и вообще, если 
R — логическая операция отношения (=, < >, >, <,>=, <=), 
то из ORD(Cl) R ORD(C2) следует Cl R С2 и обратно. 

3) PRED(C) — выдает значение, предшествующее С в упоря¬ 
доченной последовательности значений. 

4) SUCC(C) — выдает значение, следующее за С. Результат 
этих двух функций будет неопределенным, если соответствующих 
значений не существует; в этом случае не все трансляторы выдают 
диагностику. 

5) ODD(X) — выдает TRUE, если X нечетно (X — целое). 

6) элементарные математические функции: 

ABS(X) — модуль X, 

SQR(X) квадрат числа X 

(обратить внимание: нельзя на БЭСМ-6 использовать выражение 
Х**2). Эти две функции выдают результат того же типа, что и ар¬ 
гумент. 

Замечание. В этом, в общем удобном для программиста 
свойстве, кроется и источник «тяжелых» ошибок. 

Например, одна из этих функций является фактическим пара¬ 
метром. Смена типа аргумента приведет к смене типа фактического 
параметра. Но тип соответствующего формального параметра строго 
фиксирован в описании соответствующего модуля, т. е. смена на¬ 
чальных данных в такой программе может привести к ошибке, 
которой при других данных не было. 
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TRUNC(X) — целая часть X, получающаяся при отбрасыва¬ 
нии знаков после десятичной точки. Результат — целый, X — 
вещественный. 

Пример. 

TRUNC (3.9) дает 3, 

TRUNC (-3.9) дает -3. 

ROUND (X) — вещественный X округляется до целого, вы¬ 
даваемого как результат. 

Пример. 

ROUND(3.9) дает 4, 

ROUND(— 3.9) дает —4. 

Аргумент следующих функций может быть как вещественным, 
так и целым. Результат — всегда вещественный. 

LN(X) — натуральный логарифм от X, 

ЕХР(Х) — ев степени X, 

SQRT(X) — квадратный корень из X, 

. SIN(X) - синус X, 

COS(X) — косинус X, 

ARCTAN(X) — арктангенс X. 

7) PACK (А, К, Z) — осуществляет упаковку одномерного мас¬ 
сива А, начиная с К-й компоненты, в массив Z с 1-й компоненты. 
(Массив Z типа PACKED). 

8) UNPACK (Z, А, К) — осуществляет распаковку одномер¬ 
ного массива Z начиная с 1-й компоненты в массив А с К-й компо¬ 
ненты. (Массив Z типа PACKED). 

9) RESET(F) — устанавливает указатель файла на первую 
компоненту файла F и считывает ее в «окно» *) Ff ; функции EOF(F) 
присваивается значение FALSE, если файл не пуст; иначе — 
значение Ff не определено и функция EOF(F) имеет значение 
TRUE. 

10) REWRITE(F) — очищает файл (т. е. F становится пус¬ 
тым файлом), устанавливает указатель файла на первую компо¬ 
ненту, присваивает функции EOF(F) значение TRUE. К функции 
REWRITE(F) необходимо обратиться перед записью в первую ком¬ 
поненту файла F. 

11) GET(F) — в случае, когда EOF(F)=FALSE, продвигает 
указатель файла к следующей компоненте и присваивает значение 
этой компоненты «окну» Ff; если эта компонента — «конец файла», 
то значение Ff становится неопределенным, a EOF(F) принимает 
значение TRUE. 

12) ' PUT(F) — заносит значение Ff в ту компоненту файла, 
куда установлен указатель, если значение EOF(F) есть TRUE к 

*) Подробнее о файлах см. п. 21, 
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моменту выполнения PUT(F). После выполнения PUT(F) значе¬ 
ние Ff становится неопределенным. 

Пример. 

VAR DATA:FILE OF INTEGER; 

A:INTEGER; 

BEGIN 


A:=SQR(DATAf); 
GET (DATA); 


Здесь оператор A:=SQR(DATAj) присваивает переменной A 
квадрат текущей компоненты файла DATA; оператор GET (DATA) 
продвигает указатель к следующей компоненте файла и читает ее 
в переменную DATAf. 

13) WRITELN(F) — записывает символ «конец строки» в те¬ 
кущую компоненту текстового файла F. 

14) READLN(F) — пропускает остаток текущей строки, ус¬ 
танавливает указатель файла на начало следующей строки текс¬ 
тового файла F. 

15) EOLN(X) — принимает значение TRUE, если указатель 
файла установлен на символ конца строки (FALSE в противном 
случае) и засылает в X пробел. 

16) EOF(X) — принимает значение TRUE, если X соответст¬ 
вует концу файла (FALSE — в противном случае). 

17) NEW(P) — отводит место в памяти для новой динамиче¬ 
ской переменной и в Р запоминает ее адрес (см. 22.1). 

18) NEW(P,P1) — отводит место в памяти для записи 
(RECORD) с вариантом Р1. 

19) DISPOSE(P) — стирает динамическую переменную, на ко¬ 
торую указывает переменная Р. 

20) DISPOSE(P,Pl) — стирает динамическую переменную, со¬ 
зданную процедурой NEW(P,P1) и на которую указывает перемен¬ 
ная Р (см. 22.3). 

16. О кодировке символов 

1. Для ЭВМ БЭСМ-6 все символы, кроме f, соответствуют 
символам клавиатуры дисплея и перфоратора ЕС-9080 (кодировка 
КПК-12). Символ t соответствует символу (а) (коммерческое А). 
Если карты пробиты в кодировке КПК-12, то для БЭСМ-6 с опе¬ 
рационной системой «Дубна» в качестве первой карты надо поло¬ 
жить карту с пробивками 7/9 IBM (7/9 — в режиме МР пробить 7 
и 9 в первой позиции). 





2. На ЕС ЭВМ используется следующее представление сим¬ 
волов: 


Стандартное 

[ 

] 

{ 

} 

AND 

OR 

NOT 

О 

Паскаль ЕС 

(• 

•) 

(* 

*) 

& 

1 

~1 

1= 


17. Дополнительные сведения о языке паскаль 
для ЕС ЭВМ 

17.1. Как читать листинг задачи 

Каждая страница листинга начинается с информации о версии 
транслятора, дате и времени запуска программы. 

Затем выдается информация о режиме трансляции. Например, 
если задан режим В+, то следующая строка будет INITIAL ОР- 
TIONS:B+. 

Далее идет программа на паскале (см. пример). 

Первая вертикальная колонка чисел слева — номера соответ¬ 
ствующих строк программы. 

Следующая вертикальная колонка четырехзначных шестна¬ 
дцатеричных чисел содержит относительные адреса команд и пере¬ 
менных. 

Для переменных в разделе VAR этот адрес указывает относи¬ 
тельное смещение переменной от начала транслированной про¬ 
цедуры. В теле процедуры (и программы) адрес — есть относитель¬ 
ный адрес от начала процедуры. Относительные адреса исполь¬ 
зуются в ссылках раздела ERROR MESSAGE — списка диагнос¬ 
тик транслятора. 

Следующая вертикальная колонка состоит из двух символов — 
индикаторов вложений циклов и составных операторов. Когда в 
программе встречается первый оператор BEGIN, то вместо тире 
слева выдается ноль. Когда в какой-либо строке появляется END, 
соответствующий этому BEGIN, то в правом разряде двузначного 
«числа» появляется ноль. 

Если внутри первой конструкции появляется вторая (BEGIN, 
CASE, REPEAT), то в левом разряде выдается 1, а для соответст¬ 
вующего END(UNTIL) в правом разряде появляется 1. Правильно 
составленная программа должна начинаться нулем в левом раз¬ 
ряде индикатора вложения у первого оператора BEGIN программы 
и оканчиваться нулем в правом разряде у последнего оператора 
END. Если в программе есть раздел процедур и функций, то на 
листинг выводится буква — индикатор вложения модулей (про¬ 
цедур и функций). Эта буква выводится слева от заголовка модуля 
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и его BEGIN и END. Для уровня вложения 2 принята буква А, 
для уровня вложения 3 — буква В и т. д. Этот индикатор делает 
наглядной структуру процедур и позволяет сразу увидеть ошибку 
в случае пропуска END в конце модуля. 

Пример. 


1 0680 - 

2 06А8- 

3 0000 0 - 

4 0062 - 

5 008А 1 - 

6 0002 - 

7 00ЕЕ 2 2 

8 016С — 1 

9 0184 — 0 


PROGRAM L10T (INPUT,OUTPUT); 

VAR CHrCHAR; 

BEGIN 

WHILE NOT EOF DO; 

BEGIN WRITE (' '); 

WHILE NOT EOLN DO; 

BEGIN READ(CH);WRITE(CH) END; 
WRITELN;READLN END 
END. 


17.2. Ошибки, обнаруживаемые при трансляцп 
Рассмотрим пример 

1 0680 - PROGRAM L6Tl(INPUT,OUTPUT), 

***ERROR*** 

2 06A8-VAR A,B,R:REAL; LINTEGER; 

3 0000 0 — BEGIN 


!■—.14,18 


11 0196 - 0 END. 

Ошибки, обнаруженные при трансляции, отмечаются в тексте 
программы символом «!», выдаваемым под ошибкой, и номером 
ошибки. 

Ниже текста программы печатается расшифровка всех най¬ 
денных ошибок (ERROR MESSAGE). Так, в приведенном примере 
будет напечатано: 

14: Пропущена «;» (возможно, в предыдущей строке), 

18: Ошибка в декларативной части. 


17.3. Коды завершения трансляции 

0 — трансляция закончена, ошибок нет. 

4 — выдана предупредительная' диагностика, фатальных оши¬ 
бок нет, программа может быть выполнена. 

8 — были фатальные ошибки, программа не выполняется. 

12 — ошибка системы. 

16 — ошибка транслятора. 

Ошибки 12 и 16 могут быть следствием ошибок в управляющих 
картах (например, мало заказано памяти, не заказан соответст¬ 
вующий транслятор и т. д.), 
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Если управляющие карты правильные, то при кодах 12 и 10 
необходимо обратиться к консультанту. Подробнее о кодах завер¬ 
шения см. [6]. 

17.4. Внутреннее представление данных 


Тип 

'Sff 

Величина 

INTEGER 

4 

32 бита. 

BOOLEAN 

4 

1 = TRUE; 0 = FALSE. 

CHAR 

4 

EBCDIC — код в младшем (правом) байте. 

REAL 

8 

Число в форме с плавающей запятой. 

SET 

8 

Элементы, представляемые побитно, на¬ 
чиная слева. 

SCALAR 

4 

Порядковый номер величины в типе, на¬ 
чиная с нуля. 


В упакованных структурах скалярные типы занимают чаще 
всего один байт, если порядковый номер упакованных элементов 
лежит в диапазоне от 0 до 255. 

Пример. 

X:INTEGER (занимает 4 байта). 

X:PACKED ARRAY [1..4] OF CHAR (занимает 4 байта). 

B:ARRAY [1..4] OF CHAR (занимает 16 байт). 

C:REAL (занимает 8 байт). 

18. Диагностика ошибок, 

обнаруженных при трансляции 

В случае обнаружения ошибки в тексте программы, трансля¬ 
тор выдает соответствующее сообщение (диагностику). 

На ЭВМ БЭСМ-6 подробная диагностика появляется прямо 
в тексте программы перед ошибочным оператором, ошибка отме¬ 
чается символом «О». 

На ЕС ЭВМ в тексте программы под ошибочным оператором 
появляется только номер допущенной ошибки и символ «!», отме¬ 
чающий место ошибки в программе. Тексты подробных сообщений 
об ошибках выдаются единым массивом ниже текста всей программы. 

После того как транслятор обнаружил ошибку, он пытается 
возобновить анализ программы, пропустив часть текста до ожидае¬ 
мого символа. Часто удается успешно продолжить трансляцию; 
иногда это может привести к наведенным ошибкам. 
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Например, пусть при описании переменной I допущена сле¬ 
дующая ошибка: 

I,INTEGER; 

т. е. вместо знака «:» стоит запятая. 

Транслятор выдаст сообщение об ошибке, а затем будет «ру¬ 
гать» каждый оператор, использующий переменную I. Эти ошиб¬ 
ки — наведенные, они являются следствием того, что тип пере¬ 
менной I описан в ошибочном операторе. Ошибки, допущенные в 
программе, бывают двух видов: фатальные и нефатальные. Если 
ошибка нефатальная, транслятор выдает предупредительную диаг¬ 
ностику, но программа выходит на счет. Если допущена фатальная 
ошибка, программа на счет не выходит. 

18.1. Сообщения об ошибках 

Приведем список всех сообщений об ошибках, которые может 
обнаружить транслятор. 

1: Ошибка в простом типе. 

2: Пропущен идентификатор. 

3: Пропущен оператор. 

4: Пропущена ')'. 

5: Пропущено 

6: Недопустимый символ (возможно пропущен символ 
7: Ошибка в параметрах. 

8: Пропущено OF. 

9: Пропущена '('. 

10: Ошибка в типе. 

11: Пропущена '[' (или '(.'). 

12: Пропущена ']' (или 
13: Пропущен END. 

14: Пропущена (возможно, строкой выше). 

15: Должно быть INTEGER. 

16: Пропущено '='. 

17: Пропущен BEGIN. 

18: Ошибка в разделе описаний. 

19: Ошибка в списке полей. 

20: Пропущена запятая. 

21: Пропущена точка. 

21*: Пропущена переменная *). 

50: Ошибка в константе. 

51: Пропущен знак 
52: Пропущено THEN. 


*) Номера ошибок со звездочкой приводятся для ЕС ЭВМ. 
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53: Пропущено UNTIL. 

54: Пропущено DO. 

55: Пропущено ТО или DOWNTO. 

56: Пропущено IF. 

57: Пропущено слово FILE. 

58: Ошибка в множителе (ошибочное выражение). 

59: Ошибка в переменной. 

60: Пропущено IN. 

101: Дважды описанный идентификатор. 

402: Нижняя граница больше верхней. 

103: Идентификатор не принадлежит соответствующему классу. 
104: Неописанный идентификатор. 

105: Здесь знак не допускается. 

106: Пропущено число. 

107: Несовместимые ограниченные типы. 

108: Здесь FILE не допускается. 

109: Здесь тип не может быть REAL. 

110: Тип переключателя должен быть скалярным или ограниченным. 
Ill: Тип несовместим с типом переключателя. 

112: Тип индекса не может быть REAL. 

113: Индекс должен иметь скалярный тип либо ограниченный. 
114: Базовым типом не может быть REAL. 

115: Базовым типом должен быть скалярный либо ограниченный. 
116: Ошибка в типе параметров стандартной процедуры. 

117. Недопустимая ссылка на еще не описанное понятие. 

118: Неописанный тип используется при описании переменной. 
118*:Распаковку/упаковку применять нельзя; проверьте элементы 
массива. 

119: Повторное описание списка параметров не допускается. 
120: Тип результата функции может быть скалярным, ограничен¬ 
ным либо POINTER. 

121: Параметр-значение не может быть файлом. 

122: Функция уже декларирована (FORWARD); не допускается 
повторное описание типа результата функции. 

123: Пропущен тип результата в описании функции. 

124: Формат F допустим только для REAL. 

125: Ошибка в типе параметра стандартной функции. 

126: Число параметров иное, чем в описании функции (процедуры). 
127: Недопустимые фактические параметры. 

128: Тип результата параметра-функции не соответствует описанию. 
129: Несовместимость типов операндов. 

130: Тип выражения — не SET. 

131: Допускается проверка только на равенство, 

132: Не допускается строгое включение. 

133: Не допускается сравнение файлов. 



134: Недопустимый тип операнда. 

135: Операнд должен иметь тип BOOLEAN. 

136: Тип элемента множестпа скалярный или ограниченный. 

137: Несовместимые типы элементов множества. 

138: Тип переменной — не массив. 

139: Тип индекса не соответствует описанию. 

140: Тип переменной — не RECORD. t 

141: Тип переменной должен быть FILE либо POINTER. 

142: Недопустимые типы фактических параметров. 

143: Недопустимый тип переменной цикла. 

144: Недопустимый тип выражения. 

144* :Тип переключателя скалярный или ограниченный. 

145: Несоответствие типов. 

145*:Несовместимость с типом управляющей переменной. 

146: Нельзя использовать файлы в операторе присваивания. 

147: Тип метки не соответствует типу выражения переключателя, 
148: Границы диапазона должны иметь скалярный тип. 

149: Индекс может иметь тип ограниченный, но не INTEGER. 
150: Нельзя присваивать значения стандартным функциям. 

151: Нельзя присваивать значение формальному параметру-функ¬ 
ции. 

152: В данной записи нет такого поля. 

153: Ошибка в типе параметра READ. 

154: Фактический параметр должен быть переменной. 

154*: Пропущена переменная. 

155: Переменная цикла не может быть формальным параметром. 
156: Одинаковые метки в CASE. 

157: Слишком много вложенных операторов CASE. 

158: Пропущено описание соответствующего варианта. 

159: Типы REAL и строка недопустимы для переключателя. 

160: Пропущено описание FORWARD. 

161: Повторно описано FORWARD. 

162: Размер памяти, занимаемый параметром, должен быть фик¬ 
сированным. 

162*:Внешние модули не могут быть описаны как FORWARD. 
163: Пропущен вариант в описании. 

164: Не допускается подстановка стандартной процедуры (функции). 
165: Метки не должны повторяться. 

166: Дважды описанная метка. 

167: Неописанная метка. 

168: Отсутствует метка, описанная в LABEL. 

169: Ошибка в базовом типе SET. 

170: Параметр должен быть параметром-значением. 

170*: Тип переменной должен здесь быть ограниченным, скалярным 
либо POINTER. 



171: Стандартный файл не требует описания. 

172: Неописанный внешний файл. 

173: Должна быть фортранная процедура или функция. 

174: Должна быть паскаль-процедура или функция. 

175: В заголовке PROGRAM пропущен файл INPUT. 

176: В заголовке PR0GRAM пропущен файл OUTPUT. 

177: Здесь не допускается присваивание имени функции. 

177*:Переменная цикла FOR должна быть локальной. 

178: Дважды описанный вариант в RECORD. 

178* :3а именем файла данных не может следовать «/» в заголовке 
программы. 

179*: Отсутствует оператор присваивания значения функции ее 
идентификатору. 

180: Переменная цикла не может быть формальным параметром. 

180*:Слишком длинная исходная строка. 

181: Значение переключателя — вне диапазона. 

182: Присваивание идентификатору функции должно стоять внутри 
FUNCTION. 

183: Не происходит присваивания идентификатору функции в об¬ 
ласти действия этой функции. 

185: Оператор присваивания идентификатору функции должен на¬ 
ходиться в блоке этой функции. 

186: Ошибка в заголовке процедуры; несоответствие фактических 
и формальных параметров по числу или по типу. 

186*:Ошибка в заголовке процедуры. 

187: Компоненты упакованных переменных не могут быть парамет¬ 
рами-переменными. 

188: Идентификатор должен быть описан раньше, чем использован 
в других описаниях. 

189: Ошибка в ширине поля для форматного ввода/вывода. 

190: Нельзя изменять оператором присваивания переменную цикла. 

191: Переменная цикла не может быть фактическим параметром-пе¬ 
ременной. 

201: Ошибка в вещественной константе (возможно, в ее записи при¬ 
сутствуют не только цифры, либо отсутствует точка). 

202: Константа типа строка не должна выходить за пределы исход¬ 
ной строки. 

203: Слишком большая целая константа. 

204: Нулевая строка не допускается. 

204*:В восьмеричном числе не может быть цифр 8 и 9. 

205: Нулевая строка не допускается. 

205*:Ведичина либо диапазон элементов SET ошибочны. 

220: Инициализация переменных допускается только в главной 
программе. 

221: Несоответствие типов при инициализации переменных. 


222: Несоответствие числа компонент описанию структурной конс- 

223: Несоответствие типов компонент описанию структурной конс¬ 
танты. 

224: Недопустимый формат структурной константы. 

225: Отсутствует'*)' (т. е. правая фигурная скобка). 

226: Недопустимый тип структурной константы. 

227: Недопустима запись с вариантами для структурных констант. 
250: Слишком много уровней вложения областей действия иденти¬ 
фикаторов. 

251: Слишком много вложенных процедур и (или) функций. 

252: Слишком много FORWARD. 

253: Слишком длинная процедура. 

254: Слишком много констант в этой процедуре. 

254*:Слишком большие переменные. 

255: Слишком много ошибок в этой строке. 

256: Слишком много внешних ссылок. 

257: Слишком много EXTERNAL. 

258: Слишком много локальных файлов. 

259: Слишком сложное выражение. 

260: Слишком много ENTRY. 

261: Слишком много процедур либо переходов к глобальным мет¬ 
кам. 

280: Имя EVENT не декларировано. 

281: Нельзя использовать оператор POSTLUDE для события 
EXIT. 

282: Дважды описанный оператор POSTLUDE. 

292: Нельзя изменять тип константы. 

293: Режим U устанавливает номер позиции, с которой начинается 
комментарий. 

300: Деление на ноль. 

300*:Инициализация величин не допускается во внешних модулях. 
301: Нет поля CASE для данного значения. 

302: Значение индекса вышло из диапазона. 

303: Присваиваемое значение вышло из диапазона. 

304: Значение элемента SET вышло из диапазона. 

305: 'NIL' можно засылать только в переменную типа POINTER. 
306: Тип POINTER не может указывать на переменную, содержа¬ 
щую поле типа FILE; 

310: Внутри комментария символ ';' либо '(*'. 

311: На метку, описанную в разделе LABEL, нет ссылки. 

320: Структурная константа — расширение стандартного паскаля. 
321: Раздел инициализации переменных — расширение стандарт¬ 
ного паскаля. 

322: Оператор FORALL — расширение стандартного паскаля. 


323: Оператор LOOP — расширение стандартного паскаля. 

324: Упрощенная форма оператора CASE — расширение стандарт¬ 
ного паскаля. 

325: Задание диапазона меток в операторе CASE — расширение 
стандартного паскаля. 

826: Стандартный паскаль допускает здесь только идентификатор 

327: Использование оператора ** — расширение стандартного пас- 

828: Функция изменения типа—расширение стандартного паскаля. 

829: Спецификация интерактивного файла — расширение стан¬ 
дартного паскаля. 

830: Ввод строки символов — расширение стандартного паскаля. 

831: Автоматическая инициализация переключателя — расширение 
стандартного паскаля. 

332: Расширение стандартного паскаля; в стандартном паскале этот 
тип надо описать. 

833: Расширение стандартного паскаля; в стандартном паскале эту 
процедуру надо описать. 

834: Расширение стандартного паскаля; эту функцию в стандарт¬ 
ном паскале надо описать. 

335: Процедура ORD(POINTER) — расширение стандартного пас¬ 
каля. 

336: 'EXTERN', 'PASCAL', 'FORTRAN' — расширение стандарт¬ 
ного паскаля. 

337: Стандартный паскаль требует описания внешнего файла в глав¬ 
ной программе. 

338: Метка должна содержать не более четырех цифр в стандарт¬ 
ном паскале. 

339: Стандартный паскаль не допускает использование символа 
$ (П) в идентификаторе. 

380: Нельзя передавать процедуру или функцию во внешний мо¬ 
дуль. 

381: Ошибка в типе результата внешней функции. 

382: Нельзя отменять режим (* П Е + *). 

383: Можно транслировать только две процедуры одного уровня 
вложения после установления режима Е. 

384: Фактический параметр не может быть фортранным модулем. 

385: Нельзя устанавливать режим Е после трансляции внутренней 
процедуры. 

389: Ограничение, накладываемое реализацией системы. 

389*:Неожиданное появление оператора END. 

399: Массивы переменной размерности не реализованы в системе. 

399*:Не реализовано в системе. 

400: Ошибка транслятора. Обратитесь к консультанту. 


ГЛАВА II 


ДЛЯ ТЕХ, КТО РЕШИЛСЯ ИДТИ ДАЛЬШЕ 
19. Записи (RECORD) 

Запись — это структура, состоящая из фиксированного числа 
компонент, называемых полями. В одном поле данные имеют один 
и тот же тип, а в разных полях могут иметь разные типы. Общий 
вид описания типа RECORD: 

TYPE Т= RECORD 
ID11,ID12,...ID1N:TYPE1; 

ID21,ID22,...ID2L:TYPE2; 


IDK1,IDK2,...IDKM:TYPEK 

END; 

Здесь IDIJ —идентификаторы полей; TYPE! —типыполей; T — имя 
типа. 

Пример 1. Данные комплексного вида можно описать пе¬ 
ременной типа RECORD. 

TYPE COMPLEX = RECORD 
RE,IM:REAL 
END; 

VAR C:COMPLEX; 

Здесь COMPLEX — имя типа, а С — имя переменной. Переменная 
С состоит из двух полей: RE и ІМ, имеющих один и тот же тип 
(REAL). Эти поля переменной С обозначаются как C.RE и С.ІМ. 

Пример 2. Даты каких-либо событий можно описать сле¬ 
дующим образом: 

TYPE DATE=RECORD 
MONTH:1..12; 

DAY:1..31; 

YEAR:1NTEGER 

END; 

VAR D:DATE; 


3 Г. Л. Семашко, А. И. Салтыі 



В. оюм примере описан тип DATE и переменная D, принадле¬ 
жащая этому] типу. 

Переменная D описана как запись, состоящая из трех полей: 
MONTH, DAY и YEAR. Каждое поле содержит соотзетственно 
данные: целое число в пределах от 1 до 12 (номер месяца), целое чис¬ 
ло от 1 до 31 (число), целое число (год). 

Поле DAY переменной D записывается как D.DAY. 

Например, чтобы заслать в D дату 12.01.1985, надо выполнить 
следующие операторы: 

D.MONTH:=l; 

D.DAY:=12; 

D.YEAR:=1985; 

Пример 3. Вычислить сумму S двух комплексных чисел 
X = 2 + 7і и У = 6 + Зі (т. е. X,Y,S:COMPLEX; см. пример 1). 
Фрагмент программы выглядит так: 

X. RE:=2.0; Х.ІМ:=7.0; 

Y. RE:=6.0; Y.IM:=3.0; 

S.RE:=X.RE + Y.RE; 

S.IM:=X.IM + Y.IM; 

Записи, как и массивы, могут быть упакованными. 

Пример 4. 

X:PACKED RECORDj 
А:1..5; 

B:CHAR 

END; 

Запись может быть компонентой других структур. Например, 
введем тип FAMILY (семья: отец, мать, 1-й ребенок, 2-й ребенок): 

TYPE FAMILY= (FATHER,MOTHER, 

CHILD1.CHILD2); 

VAR BIRTHDAY:ARRAY [FAMILY] OF DATE; 
где DATE — описанная выше запись. 

Переменная BIRTHDAY есть массив, состоящий из записей — 
дат рождения членов семьи: отца, матери, 1-го ребенка, 2-го ребен¬ 
ка. Каждая дата рождения имеет тип DATE, который должен быть 
описан в программе. 

Для занесения даты рождения, например, матери (MOTHER), 
достаточно выполнить операторы: 

BIRTHDAY[M0THER].M0NTH:=5; 

BIRTHDAY[M0THER].DAY: = 1; 

BIRTHDAY[MOTHER].YEAR:=1950; 

Занесется дата рождения матери — 1.5.1950. 
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19.1. Оператор WITH 

Этот оператор используется для удобства работы с переменны¬ 
ми типа RECORD (запись). 

Общий вид: 

WITH A DO ST; 

здесь А — имя переменной типа RECORD, ST — оператор. 

В операторе ST при ссылках на компоненты записи имя А мож¬ 
но опускать. 

Пример. Для занесения даты рождения в предыдущем при¬ 
мере достаточно выполнить операторы: 

WITH BIRTHDAY[MOTHER] DO 
BEGIN 

MONTH:=5; 

• DAY: = 1; 

YEAR:=1950 

END; 

19.2. Запись с вариантами 

Общий вид: 

TYPE V=RECORD 
A:TYPE1 
B:TYPE2 


CASE N:TYPEN OF 
C1:(T11:TYPE11; 

T12:TYPE12;...); 

C2:(T21:TYPE21; 

T22:TYPE22,...); 


CK:(TK1:TYPEK1; 

TK2:TYPEK2;...) 

END; 

VAR Z:V; 

Здесь Z — переменная типа V; N — переменная, называемая пере - 
ключателем ; TYPEN — тин переменной N. 

Этому же типу должны принадлежать метки С1,С2,...СК. 
Каждой метке соответствует набор полей Til, Т12,... Эти поля яв¬ 
ляются компонентами варианта. 

Переменную N называют также тагом (тэгом), ярлыком, при¬ 
знаком, дискриминантом. 

Если какой-либо метке CL вообще не соответствуют поля, то 
пишут CL:( ); 
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Замечания. 

1. Любая запись (RECORD) может иметь только одну вариант¬ 
ную часть (CASE). 

2. Вариантная часть должна помещаться после постоянной 
части. 

3. Среди идентификаторов полей не должно быть одинаковых. 
Обращение к компоненте Z.Tij записи Z происходит так: 

1) Присваивается соответствующее значение (С ( ) переключате¬ 
лю N. В зависимости от значения N переменная Z, помимо полей 
А,В,..., содержит те поля, которые соответствуют той метке С,, 
с какой совпадает значение N. 

2) Выполняется операция с компонентой Z.Tij. 

Пример записи с вариантами. Пусть необходимо собрать 

следующие сведения о сотрудниках института: фамилию, дату рож¬ 
дения и, если есть семья, то фамилию и дату рождения супруги 
(супруга). 

Эта информация может быть описана, например, записью 
PERSON. 

Пусть переменная типа KIND может иметь одно из значений 
(«женат», «холост»). 

KIND=(MARRIED, SINGLE); 

PERSON=RECORD 
NAME:ALFA; 

DATEBIRTILDATE; 

CASE YESNO:KIND OF 
MARRIED:(NAME1:ALFA;DATE1:DATE); 

SINGLE:( ) 

END; 

Здесь NAME — строка символов (например, 'ROGOV^'); DATE- 
BIRTH — запись, описанная выше, содержит дату рождения (на¬ 
пример, 15.02.62); YESNO — переключатель типа KIND, который 
может принимать одно из двух значений: MARRIED либо SINGLE; 
NAME1 — строка символов, содержащая фамилию супруги (суп¬ 
руга) (например, 'ROGOVA'); DATE1 — запись, содержащая дату 
рождения супруги (супруга). SINGLE — пустое поле. 

Если ROGOV женат, то присутствует поле MARRIED, если 
холост — поле SINGLE, а поле MARRIED отсутствует. Паскаль 
допускает вложение вариантов в типе RECORD. 

Пример. Пусть необходимо, помимо информации преды¬ 
дущего примера, иметь о сотрудниках следующие сведения: если 
сотрудник холост, но состоял в браке раньше, то указать, когда раз¬ 
веден. 

Опишем тип KIND как (женат, холост, разведен, нет): 
KIND=(MARRIED, SINGLE, DEVORCED.NO); 
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Тогда 

PERSON= RECORD 
NAME: ALFA; 

DATEBIRTHiDATE; 

CASE YESNO:KIND OF 
MARRIED:(NAME1:ALFA; DATE1:DATE); 

SINGLE: (CASE YN:KIND OF 
DEVORCED:(DATEDV:DATE)); n. 

NO:( ) 

END; 

Здесь для варианта SINGLE имеется вложенная запись с варианта¬ 
ми DEVORCED (разведен) и N0. 

Если сотрудник состоит в браке, то в записях информации от¬ 
сутствует поле SINGLE; если разведен, то отсутствует MARRIED; 
если в браке не состоял, то запись содержит лишь поле NAME, 
DATEBIRTH и пустое поле N0. 

Замечание. Перед засылкой информации в запись про¬ 
граммист должен присвоить переключателю соответствующее зна¬ 
чение. В противном случае информация (например, MARRIED) в 
поле заслана не будет, и система никакой диагностики не выдаст. 

Пример засылки информации о сотруднике РОГОВЕ, родив¬ 
шемся 1.12.32, женатом на РОГОВОЙ, родившейся 15.3.30 (ЭВМ 
БЭСМ-6). 

PROGRAM L8T3(INPUT,OUTPUT); 

TYPE KIND=(MARRIED,SINGLE); 

DATE=RECORD 

DAY:1..31; 

M0NTH:1..12; 

YEAR:INTEGER 

END; 

PERSON=RECORD 
NAME:ALFA; 

DATEBIRTH:DATE; 

CASE YESNO:KIND OF 
MARRIED:(NAME1:ALFA; DATE1:DATE); 
SINGLE:(NAMESING:ALFA) 

END; 

VAR P:PERSON; 

BEGIN 

WITH P DO 
BEGIN 

YESNO:=MARRIED; 

NAME:='ROGOV '; 
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WITH DATEBIRTH DO 
BEGIN 
DAY:=1; 

MONTH: = 12; 

YEAR=1932 

END; 

CASE YESNO OF 
MARRIED: BEGIN 

NAME1:='ROGOVA'; 

WITH DATE1 DO 
BEGIN 
DAY:=15; 

MONTH:=3; 

YEAR: = 1930 
END 

END;(* MARRIED *) 
SINGLE:NAMESING:='SINGLE'; 

END (* CASE YESNO OF ») 

END (* WITH P DO *) 

WITH P DO 
WRITE ('—', NAME); 

WITH P.DATEBIRTH DO 
WRITELN ('—'.DAY,'/'.MONTH,'/'.YEAR); 

WITH P DO 
WRITE ('—\NAME1); 

WITH P.DATE1 DO 

WRITELN ('—'.DAY,'/'.MONTH,'/'.YEAR) 

END. 

Солее сложная программа, иллюстрирующая работу с переменны 
ма типа «запись», приведена в Приложении 1. 

20. Множества (SET) 

Рассмотрим несколько примеров. 

Пример 1. Пусть в нашем распоряжении имеется множест¬ 
во из трех монет разного достоинства: 1 к, 5 к, 10 к. Из этих монет 
можно составить следующие подмножества (их число равно 2 3 = 8): 

1) {1 к.}; 5) {1 к, 10 к.); 

2) {5 к.}; 6) {5 к, 10 к.}; 

3) (10 к.}; 7) {1 к, 5 к, 10 к.}; 

4) {1 к, 5 к.}; 8) пустое подмножество ф. 

Эти подмножества и будут принадлежать некоторому множеству, 
тан которого назовем SUM; сами элементы (монеты), из которых со- 
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ставляется подмножество, пусть принадлежат некоторому базовом; 
типу, который назовем MONET. 

Опишем типы данных этого примера: 

TYPE MONET=(KOP1,KOP5,KOP10); 

SUM=SET OF MONET; 

Пример 2. Рассмотрим в качестве элементов базового типа 
сигпалы от 4-х абонентов (АВ1, АВ2, АВЗ, АВ4), поступающие на 
телефонную станцию. Обозначим базовый тип через ABONENT: 

TYPE AB0NENT=(AB1,AB2,AB3,AB4), 
тогда комбинации сигналов можно описать переменной типа «мно 
жество». Назовем этот тип SIGN: 

SIGN=SET OF ABONENT; 

Тип SIGN описывает такие комбинации: 

1) только АВ1; 2) только АВ2; 3) только АВЗ; 4) только АВ4 
5) АВ1 и АВ2; 6) АВ1 и АВЗ; 7) АВ1 и АВ4; 8) АВ2 и АВЗ; 9) АВ2 
и АВ4; 10) АВЗ и АВ4; 11) АВ1, АВ2 и АВЗ; 12) АВ1, АВ2 и АВ4 
13) АВ1, АВЗ и АВ4; 14) АВ2, АВЗ и АВ4; 15) АВ1, АВ2, АВЗ п 
АВ4; 16) отсутствие сигналов; 

В общем виде тип «множество» описывается так: 

TYPE A=SET OF ТС; 

Здесь А — идентификатор типа (произвольный); ТС — тип компо¬ 
нент множества, называемый базовым типом. 

Значение переменной типа «множество» изображается путем пе¬ 
речисления конкретных компонент, разделенных запятыми и зак¬ 
люченных в квадратные скобки. 

Пример 3. Пусть базовый тип INT и тип А заданы так: 
TYPE ШТ=1..3; 

A=SET OF INT; 

Переменная типа А в этом случае может принимать следующие зна¬ 
чения: [1], [ 3 ], [ 2 ], (1, 3 ], [1, 2 ], [3, 2 ], [ 1 , 3, 2], [ ], где ( ] означает 
пустое множество. Например, если переменная В имеет тип А, то 
можно присвоить ей одно из значений: В: = [1,3]; В:= [1,3,2]; 

Пример 4. Если базовый тип описывает набор двоичных 
бит, то можно получить их комбинацию. Пусть 
TYPE BIN = (BIT1,BIT2,BIT3); 

BTS=SET OF BIN; 

Переменная типа BTS может принимать значения: [ВІТ1],[ВІТ2], 
[ВІТЗ],[ВІТ1,ВІТ2],[ВІТ1,ВІТЗ],[ВІТ2,ВІТЗ),[ВІТ1,ВІТ2,ВІТЗ], 

[ ]. 
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Таким образом, используя переменные типа SET, можно ра¬ 
ботать с битовой информацией. 

Паскаль допускает множества, состоящие из ограниченного чис¬ 
ла элементов N ^ NMAX, где NMAX — машинозависимая конс¬ 
танта: 

на БЭСМ-6 NMAX = 48, 

на ЕС ЭВМ NMAX = 63. 

В качестве базового типа можно использовать любой простой 
тип, кроме REAL. Если в качестве базового типа выбран тип CHAR, 
то допускается использовать не.более NMAX первых символов, имею¬ 
щихся в распоряжении транслятора. Если задача требует исполь¬ 
зования множества, состоящего из большего числа элементов, то 
его можно представить как массив множеств, состоящих из допус¬ 
тимого числа элементов. 

Для ограниченных типов от базового типа INTEGER можно 
использовать в качестве компонент целые числа от нуля до N ^ 
< NMAX - 1 

Пример 5. 

TYPE N=(0..62); 

VAR P:SET OF N; 

20.1. Данные типа SET 

Данные типа SET задаются путем перечисления значений, 
разделенных запятыми и заключенных в квадратные скобки. 

Общий вид: 

[EXPR1,EXPR2,...EXPRN]; 

Здесь EXPRI — выражения базового типа. 

Порядок следования выражений — несуществен. Непустой набор 
может быть также выражением вида: 

[EXPR1] 

[EXPR1..EXPRK] 

[EXPR1,EXPRK..EXPRN] 

Данные вида [EXPR1..EXPRK] соответствуют набору всех элемен¬ 
тов базового типа от значения EXPR1 до EXPRK. 

Пример 1. [3*6—7..15+4] соответствует набору [11..19], 



[11,12,13,14,15,16,17,18,19]. 

Если окажется, что для [I..J], I > J, то такое множество интер¬ 
претируется как пустое, а в случае I = J — как множество, содер¬ 
жащее один элемент — I. 

П р и м е р 2. [3*6—7..5+6] эквивалентно [11]. 
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TYPE COLOR = (RED,YELLOW,GREEN,BLUE); 
VAR MIX:SET OF COLOR; 


MIX: = 


Напомним, 
символов и 
Пример 4. 

TYPE N = (1,3, 5,7,9); 
VAR K:SET OF N; 


[RED,BLUE]; 

на ЕС ЭВМ символам '[' и ']' соответствуют нары 


К: = [3. .9]; 

В атом случае в К зашлется комбинация [3,5,7,9]; 


20.2. Операции с переменными типа SET 

К переменным типа SET применимы следующие операции: 

= , < >, >=, <=, Ш, +, -, *. 

Операции = и < > используются для проверки эквивалента 


ноети: два значения переменной 
ли они состоят из одних и тех ж 
Пример 1. 


[1.3] 
[1-3] 
[ 1 ] 

[1.2.3] 


= [3,1] 

= [1,2,3] 
< > [2] 

[1,4,3] 


i SET считаются равными, ес- 
! элементов. 

дает TRUE, 
дает TRUE, 
дает TRUE, 
дает FALSE, 


[RED, BLUE] = [RED, YELLOW] дает FALSE. 

Операции >= и <= используются для проверки принадл.ея*. 
ности одного множества другому: так, если множество А содержится 
во множестве В, то А <= В дает TRUE. 

Пример 2. 

[1, 2] <= [1,2,3] дает TRUE 

Пустое множество [ ] содержится во всех множествах, т. е. всегда 
• [ ] <= [В] дает TRUE. 

Операция Ш используется для установления наличия опреде¬ 
ленного элемента в величине типа SET. Так, если X есть элемен» 
множества В, то (X IN В) дает TRUE. Общий вид: 

X Ш А; 


эдесь X — величина базового і 


і SET. 
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Пример 3. 

RED IN [RED,YELLOW] дает TRUE; 

RED IN [BLUE.GREEN] дает FALSE; 

Замечание 1. Чтобы проверить, является ли значение N 
цифрой, удобно использовать операцию IN следующим образом: 
IF N IN [0..9] THEN... 

Замечание 2. Результат операции IN может быть неоп¬ 
ределенным в некоторых случаях 
Пример 4. Пусть 
A: SET OF 1..50; 

X: INTEGER. 

Если заслать в X число, большее максимального значения 50 (напри¬ 
мер, Х:= 55), то в этом случае результат операции X IN А не всег¬ 
да FALSE. 

К переменным типа SET, относящимся к одному и тому же конк¬ 
ретному типу, применимы операции: 

+ объединение; 

* пересечение; 

— дополнение. 

Пусть А и В — операнды, имеющие один и тот же конкретный тип. 
Тогда 

А + В представляет собой объединение множеств элементов, 
входящих в А и В (одинаковые элементы не повторяются). 

А * В — пересечение множеств элементов А и В. 

А — В — множество элементов, которые есть в А, но отсутст¬ 
вуют в В. 

Пример 5, 

[1.3] + [1,4] дает [1,3,4]; 

[1.3] . [1,4] дает [1]; 

[1.3] -[1,4] дает [3]. 

Операция А:= А + X добавляет элемент X к множеству А. 
Если X уже имелся в А, то множество А не меняется. А:= А — X 
исключает X из А. Если X отсутствовал в А, то множество А не ме¬ 
няется. 

21. Файлы (FILE) 

Для того чтобы понятие файла было для читателя достаточно 
ясным, рассмотрим процесс записи на магнитную ленту. Запись 
производится посредством магнитных головок на тот участок ленты, 
который находится против іоловки. Для простоты будем считать, что 
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головка может перемещаться вдоль магнитной ленты (в действи¬ 
тельности головки закреплены, а лента движется). 

Пример. Пусть записывающая головка (изобразим ее стрел¬ 
кой) установлена против участка А магнитной ленты (рис. 2)і 


Рис. 2 


Если на ленту будет записано некоторое число 153, то головка 
после записи переместится к следующему участку ленты (В) (рис. 3): 


Т 

Рис. 3 


Пусть на ленту таким образом будет записана последовательность 
чисел: 153, 512, 25, —13 (рис. 4) 

А BCD 

~\І53 I 512 1 25 I -13 I 

~T 

Рис. 4 

В этом случае говорят, что на магнитной ленте находится файл (пе¬ 
ременная типа FILE) длиной 4, а записывающая головка продвину¬ 
лась за пределы файла. 

Файл представляет собой последовательность компонент одно¬ 
го и того же типа. Число компонент не фиксировано. В каждый мо¬ 
мент доступна только одна компонента. Говорят, что на эту компо¬ 
ненту установлен указатель файла. 

Если выполнилась операция записи в и-ю компонепту файла, 
то указатель автоматически продвигается к (п + 1)-й компоненте, 
т. е. для записи становится доступной уже только (п + 1)-я компо¬ 
нента. 

Длиной файла называется число записанных компонент. Файл, 
не содержащий компонент, называется пустым , его длина равна ну¬ 
лю. Читать файл можно также только последовательно по одной ком¬ 
поненте. Файлы паскаля поэтому называют файлами последователь¬ 
ного доступа. Начать писать в файл можно только с самого его на¬ 
чала, дописывая новые компоненты последовательно одну за дру. 
гой; для чтения также надо начинать просмотр файла с самого 
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Вследствие такой организации на одном просмотре файла нель¬ 
зя совмещать и чтение, и запись информации: можно либо только 
читать, либо только писать. 

Для того чтобы определять готовность файла к чтению либо 
к записи информации, существует стандартная функция EOF(F), 
где F — имя файла. Если указатель файла продвинулся за конец 
файла (готовность к записи), то эта функция принимает значение 
TRUE, во всех остальных случаях эта функция принимает значе¬ 
ние FALSE. 

Общий вид описания типа FILE: 

TYPE R = FILE OF TC; 

здесь R — идентификатор типа, ТС — тип компонент (может быть 
любым, кроме типа FILE). 

Файлы могут быть разных типов: состоять из целых компонент, 
либо вещественных, либо записей и т. д. Как и другие переменные, 
каждую переменную-файл надо описать в разделе VAR. Вводя имя 
переменной файла (имя файла), надо указать, какого типа файл. 
Этот тип должен быть обозначен каким-либо именем и описан в раз¬ 
деле TYPE. 

Например, файл F вещественных чисел: 

TYPE N=FILE OF REAL; 

(* описание переменной файла *) 

VAR F:N; 

Файл может быть описан и непосредственно при описании перемен¬ 
ной, например 

VAR F:FILE OF REAL; 

В первом случае введено имя файла F и соответствующий тип обо¬ 
значен N ; во втором введено имя файла F, а его тип имени не имеет 
и поэтому в разделе TYPE не описывается. 

Если переменная F имеет тип FILE, то транслятор автоматиче¬ 
ски вводит переменную F f , называемую буферной переменной, 
«окном», через которое можно прочитать или записать одну компо¬ 
ненту. Переменная Ff имеет тот же тип, что и компоненты файла F. 
«Окно» устанавливается против той компоненты, где находится ука¬ 
затель файла. 


Пример. Рассмотрим на схеме запись в файл чисел 153, 
512, 25. 


1) 



В «окно» Ff записано число 153. 
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Выполнен приказ на запись в файл. Значение F] «испорчено», 
там уже не 153. 



В «окно» занесено число 512. 

\™\™\ , I 

dh 

Выполнен приказ на запись в файл. 
I 153 I 5П\ I 



В окно занесено число 25. 


жпшид 

ж 

Выполнен приказ на запись в файл. 

После записи в файл значение буферной переменной F | стано¬ 
вится неопределенным («портится»). 

Файлы создаются не только на магнитных лентах, но и на маг¬ 
нитных дисках, других внешних устройствах, а также в оператив¬ 
ной памяти. Способы работы с такими файлами с точки зрения прог¬ 
раммы во всех этих случаях одинаковы: доступна только одна компо¬ 
нента файла (посредством «окна»). Файлы прямого доступа в стан¬ 
дарте языка паскаль отсутствуют [4]. 

Работа с файлами (F) проводится посредством следующих 
стандартных процедур. 

1. RESET(F) — подготовка к чтению информации из файла 
с именем F. Эта процедура осуществляет следующие действия: еслм 
файл не пустой, то устанавливается указатель файла на 1-ю компо¬ 
ненту и эта компонента считывается в «окно» (F|); функции EOF(F) 












присваивается значение FALSE. Если файл был пустым, то значе¬ 
ние F I «портится», a EOF(F) присваивается значение TRUE. 

2. GET(F) — чтение компоненты файла F. Процедура выполня¬ 
ется только при условии, если EOF(F) имеет значение FALSE. Про¬ 
верку этого условия необходимо сделать в программе перед обра¬ 
щением к GET(F). Процедура продвигает указатель к следующей 
компоненте файла и считывает эту компоненту в «окно» (Ff ); если 
указатель выйдет за пределы файла, то функция EOF(F) принимает 
значение TRUE, а значение Ff «испортится». 

3. REWRITE(F) — подготовка к записи информации в начало 
файла F. Процедура очищает файл F и устанавливает указатель 
файла на 1-ю компоненту; функции EOF(F) присваивается значение 


TRUE. 


4. PUT(F) — запись компоненты в файл F. Перед обращением 
к этой процедуре в программе необходимо проверить значение 
функции EOF(F): файл готов к записи только при значении TRUE. 
Процедура записывает в файл значение буферной переменной (F f ) 
и передвигает указатель за пределы файла, готовясь записать сле¬ 
дующую компоненту. Значение EOF(F) остается TRUE, a Ff — 
«портится». 

Пример. Проиллюстрируем на примере работу процедур 
REWRITE и PUT для следующей задачи: записать в начало файла 
GRUPP2 следующие компоненты:' IVANENKO','SHELKOV^'. Оче¬ 
видно, файл содержит компоненты типа ALFA (см. 6.5.1), буферная 
переменная также типа ALFA. (Файл GRUPP2 содержал ранее дру¬ 
гие значения). 

1) Выполним процедуру REWRITE (GRUPP2): 



2) Занесем 1-е значение в буферную переменную 
GRUPP 2 t : = 'IVANENKO'; 


I 'IVANENKO 1 1 

3) Выполним процедуру PUT (GRUPP2): 
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4) Занесем 2-е значение в буферную переменную: 
GRUPP 2| :='SHELKOV'; 


I ‘IVANENKO 1 I I 

t 

I’SHCLKOVjj 

5) Выполним процедуру PUT(GRUPP2); 
I‘IVANENKO 1 I 'SHELKOVw'l | 


? 

Для упрощения работы с файлами введены процедуры чтения ин¬ 
формации из файла — READ и записи в файл — WRITE, которые 
освобождают программиста от манипуляций с буферной переменной. 
Общий вид: 

READ (F, XI, Х2, . . XN); 

здесь F — имя файла, XI, Х2, . . XN — переменные, куда считы 
ваются компоненты файла, начиная с той компоненты, какая была 
занесена в «окно» файла. 

Пример. Пусть состояние файла GRUPP2 соответствует 
схеме 

I ‘IVANENKO 1 I 'SHELKOV^ 1 | 'КОРУ LOVj | ' SYCHEV J,J|~ 

pSHELKOVu^'l 

Тогда после выполнения оператора 
READ (GRUPP2,X1,X2,X3), 

(где X1,X2,X3 должны иметь тип ALFA) картинка будет выгля¬ 
деть так: 

| 'IVANENKO' | 'SHELKOVj j 'KOPYLOV^')'SYCHEV^ j j 


Значения переменных Х1,Х2,ХЗ будут следующими: 


XI 

Х2 

хз 

'SHELK0V_ ' 

'KOPYEOVJ 

'SyCHEV^J 


79 






















Процедура записи в файл имеет вид 
WRITE (F, А х , А 2 , . . . А п ) 

Здесь F имя файла, А х , А г , . . . А п — выражения того же типа, что 
и компоненты файла. Процедура записывает значения выражений 
A lt . . ., А к по одному в файл F, начиная с того места, куда был ус¬ 
тановлен указатель файла в момент обращения к процедуре WRITE. 

Пример. Пусть Al='TEVELEVu_'; A2='RODIONOV', 
А3= 'MALYSHEV', а состояние файла GRUPP2 такое, каким оно 
было после выполнения оператора READ. Тогда после работы опе¬ 
ратора WRITE(GRUPP2,A1,A2,A3) файл GRUPP2 будет таким: 

|'lVAI'lENKO'|'SHELKOVj| l KOPYLOVJ|'SYCHCVLJ|'TEVELEVj]'RQD10NOV'l'K4LYSIii?/| 

В стандарте языка паскаль работа с файлами черед READ и 
WRITE допускается только для компонент, имеющих тип CHAR. 
Но трансляторы на ЕС ЭВМ и БЭСМ-6 не накладывают ограниче¬ 
ний: для любых файлов можно использовать эти процедуры. 

В качестве примеров рассмотрим три задачи, имеющие практи¬ 
ческое значение. 

Пример 1. Запись информации в файл F1 (переменная X 
должна иметь тип компонент файла). Фрагмент программы такой: 
REWRITE(Fl); 

REPEAT 

(. ПОЛУЧЕНИЕ ЗНАЧЕНИЯ X - ОЧЕРЕДНОЙ 
КОМПОНЕНТЫ ФАЙЛА *) 

WRITE(F1,X) 

UNTIL <условие окончания) 

Пример 2. Чтение всей информации из файла F2 (перемен¬ 
ная Y должна иметь тип компонент файла F2). 

RESET(F2) 

WHILE NOT EOF(F2) DO 
BEGIN 
READ(F2,Y); 

(* ОБРАБОТКА ОЧЕРЕДНОЙ КОМПОНЕНТЫ ♦), 

END; 

ПримерЗ. Записать в файл F1 числа 2, 3,-4, 5, а в файл F2 
числа 2!, 3!, 41,5! Затем прочитать из файлов F1 и F2 эти числа и 
напечатать. 

//TEST5 JOB ХХХХХ, SEMASHKO,MSGLEVEL= (2,0) 

// EXEC PASCLG 
11 PASC.SYSIN DD * 

PROGRAM FL(INPUT, OUTPUT); 
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VAR I,J,X,Y:INTEGER; 

F1,F2:FILE OF INTEGER; 

BEGIN 

(* ЗАПИСЬ В ФАЙЛ *) 

REWRITE(Fl); REWRITE(F2); 

X:=l; Y: = l; 

REPEAT 

X:=X+1; Y:=Y*X; 

WRITE(F2,Y); WRITE(Fl.X) 

UNTIL X=5; 

(* ЧТЕНИЕ ИЗ ФАЙЛА *) 

RESET(Fl); RESET(F2); 

WHILE NOT EOF(Fl) DO 
BEGIN ■ 

READ (F2, Y); 

READ (FI, X); 

WRITELN(' X= ,X, ' Y=',Y) 

END 

END. 

//GO.P(® LOCAL DD UNIT=SYSDA, 

// DISP=OLD,VOL=SER=RESMVT 

//GO.SYSIN DD * 

// 

Результат работы программы: 


X = 2 
X = 3 
X = 4 
X = 5 



Пример 4. Копирование файла F2 в файл F1. Компоненты 
файлов F1 и F2, а также переменная X должны иметь один и тот же 


RESET(F2);. 

REWRITE(Fl); 

WHILE NOT EOF(F2) DO 
BEGIN 

READ(F2,X); WRITE(Fl.X) 
END; 


21.t. Внешние файлы 

Файлы по отношению к программе могут быть внешними и внут¬ 
ренними. 

Внутренними файлами являются такие, которые создаются, 
используются и существуют только во время работы данной прог¬ 
раммы. 
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Однако часто возйикает необходимость использовать файлы, 
созданные ранее и хранящиеся на впешпих запоминающих устройст¬ 
вах. Например, программы, обрабатывающие данные физических 
экспериментов, вводят эти данные с файлов на магнитных лентах 
либо дисках; эти файлы были записаны ранее, возможно, в ходе са¬ 
мого эксперимента. С другой Стороны, обработка данных физиче¬ 
ского эксперимента, как правило, представляет собой сложную за¬ 
дачу, решение которой ведется в несколько этапов. На каждом эта¬ 
пе получается файл промежуточных результатов, который исполь¬ 
зуется впоследствии другими программами. Такие файлы, которые 
существуют вне программы, называют внешними файлами. 

Внешние файлы указываются в списке параметров PROGRAM 
и соответственно описываются в управляющих картах (см. [6]). 

21.2. Текстовые файлы 

Особое значение имеют файлы, компонентами которых явля¬ 
ются символы. Такие файлы называются текстовыми. 

Тип текстового файла (TEXT) в каждом трансляторе с паскаля 
8аранее предопределен как 

TEXT=FILE OF CHAR 

(описывать в программе этот тип не требуется). Текстовый файл со¬ 
стоит из последовательности строк, каждая из которых содержит 
величины типа CHAR и заканчивается специальным символом «ко¬ 
нец строки» (EOL). 

Стандартные файлы INPUT и OUTPUT являются текстовыми. 

С символом «конец строки» оперируют следующие проце¬ 
дуры: 

WRITELN(F) — записывается символ «конец строки» (EOL) 
в компоненту файла, на которую установлен указатель файла. 

READLN(F) — пропускается оставшаяся часть текущей стро¬ 
ки и указатель файла устанавливается на первый символ новой 
строки. В «окно» файла F | считывается этот символ. 

EOLN(F) — функция принимает значение TRUE, если указа¬ 
тель установлен на символ «конец строки», и засылает про¬ 
бел в Ft- 

Если F — текстовый файл, а СН — символьная переменная, 
то можно использовать следующие формы процедур записи и 
чтения. 

Для записи в текстовый файл F значения символьной перемен¬ 
ной СН можно воспользоваться процедурой 

WRITE (F,CH) вместо F|:=CH; PUT(F); 
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Еслп V1,V2,V3, . . . VN — символьные переменные, то можно их 
значения записать в файл F процедурой 
WRITELN(F,V1,V2,V3,...VN) вместо 
WRITE(F,V1);WRITE(F,V2);...WRITE(F,VN); 

WRITELN(F); 

При этом следом за значением VN в файл F запишется символ «ко¬ 
нец строки». 

Аналогично можно воспользоваться оператором 
READ (F, СН) вместо CH:=F|; GET(F); 
для чтения из текстового файла F. 

Если надо прочитать N символов и перейти к новой строке фай¬ 
ла F, то можно использовать оператор 
READLN(F,V1,V2,V3,...VN) вместо 
READ(F, VI); READ(F,V2);...READ(F,VN)! 

READLN(F); 


21.3. Стандартные текстовые файлы INPUT и OUTPUT 


Стандартный ввод и вывод в языке паскаль осуществляется 
с помощью текстовых файлов INPUT и OUTPUT (файлов стандарт¬ 
ного типа TEXT), описанных в качестве параметров PROGRAM. 

Для упрощения работы с такими файлами предоставлены до¬ 
полнительные возможности: по умолчанию для переменной СН типа 


CHAR 


WRITE(CH) соответствует WRITE (OUTPUT, СН); 
READ(CH) соответствует READ (INPUT, СН); 
VVRITELN соответствует WRITELN (OUTPUT); 
EOF соответствует EOF (INPUT); 

EOLN соответствует EOLN (INPUT); 

READLN соответствует READLN (INPUT). 


К файлам INPUT и OUTPUT нельзя применять RESET и REWRITE. 

Первый символ каждой строки файла OUTPUT управляет уст 
рліством печати и на печать не выводится. Если этот символ «про-- 
бел», то — переход к следующей строке; «О» — пропуск строки; 
«1» — переход к началу следующей страницы листинга; «+» — пе ' 
чать без перехода к новой строке (печать с наложением строк). 

П р и м е р 4. Печать значепия А с новой страницы: 

WRITE('1\A) 


Пример 5. Печать содержимого внешнего текстового фай¬ 
ла X. 

PROGRAM L10T2 (OUTPUT, X); 

VAR CH:CHAR; 


X:FILE OF CHAR; 

BEGIN WRITE(' '); . 

RESET (X); WHILE NOT EOF(X) DO 
BEGIN 

WHILE NOT EOLN(X) DO 

BEGIN READ(X.CH); WRITE(CH) END; 

WRITELN; READLN(X) 

END 

END. 

Кроме того, для файлов INPUT и OUTPUT процедуры READ 
и WRITE позволяют работать с параметрами не только типа CHAR, 
но и*параметрами типа BOOLEAN, REAL и INTEGER. Если пер¬ 
вый параметр процедур READ и WRITE — текстовый файл, то ин¬ 
формация из него читается или в него записывается; если первый 
параметр— не текстовый файл, то автоматически информация чи¬ 
тается из файла INPUT или записывается в файл OUTPUT соот¬ 
ветственно. Трансляторы ЕС ЭВМ и БЭСМ-6 позволяют также вво¬ 
дить и выводить переменные типа ALFA, строки символов. 

22. Ссылки (POINTER) 

До сих пор мы имели дело с такими переменными, которые 
описывались в разделе VAR какого-либо блока программ. Трансля¬ 
тор после анализа этого раздела отводит каждой переменной соот¬ 
ветствующее число ячеек памяти и закрепляет их за данной пере¬ 
менной на все время работы блока. Такие переменные называют 
статическими. Они не могут быть использованы системой под дру 
гие нужды, даже если в процессе дальнейшей работы программы эти 
переменные больше не понадобятся. 

Данные могут быть организованы и другим образом. Их можно 
хранить в некоторой области памяти, не обозначая именем перемен¬ 
ной, а используя ссылку на эту область. Аналогично тому, как 
иногда «обозначают» зрителя: «человек с 5-го ряда, 3-го места». Как 
мы увидим ниже, такой вид доступа позволяет динамически захва¬ 
тывать и освобождать память в процессе работы блока программы. 
Поэтому и сами переменные, которые могут создаваться и ликвиди¬ 
роваться по мере надобности, называют динамическими. 

Остановимся подробнее на работе с динамическими переменны¬ 
ми, которые чаще всего реализуются как связанные структуры. 

Пример. Проиллюстрируем особенности такой связанной 
структуры на примере очереди на прием к врачу. Каждый пациент 
запоминает человека, за которым занял очередь. Все пациенты свя¬ 
заны в цепочку согласно очереди, но в пространстве они размещены 
произвольным образом: вновь подошедший садится на любое сво- 
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бодное место, т. е. соседние элементы очереди могут находиться 
на произвольном расстоянии в пространстве. 

Подобным образом строится структура связанных данных, ко¬ 
торые могут занимать память не подряд, а размещаться там, где есть 
свободное место. Каждый элемент такой структуры должен «знать», 
за кем он «стоит», т. е. содержать ссылку на предыдущий элемент 
цепочки. 

Чтобы проиллюстрировать преимущества динамических пере¬ 
менных, продолжим аналогию с очередью пациентов. 

Пусть один из пациентов покидает очередь. Этот процесс не тре¬ 
бует перемещения в пространстве осталшых пациентов: просто 
стоящий за ушедшим теперь запоминает другого человека. То есть 
исключение элемента из цепочки данных сводится к изменению одной 
единственной ссылки и не требует перемещения остальных элемен¬ 
тов, как это имело бы место для массива. На рис. 5 показывается 
исключение элемента цепочки. 

CZDpCZD 

Рис. Ъ 

Исключенный элемент теперь можно освободить от участия в 
работе блока и использовать занимаемый им участок памяти для 
других целей. 

С помощью ссылок легко вставить новую компоненту в цепочку 
данных. Для этого достаточно изменить две ссылки (см. рис. 6), 



Рис. 6 

Новая динамическая компонента может быть размещена в любом 
свободном месте памяти, отведенном под такие переменные. Сама 
динамическая переменная не обозначается идентификатором. Ди¬ 
намическая переменная — это «невидимка» в программе: идентифи¬ 
катором она не обозначается, транслятор ей место в памяти не от¬ 
водит. Память под такую переменную резервируется и освобождает¬ 
ся динамически в процессе счета (с помощью специальных про¬ 
цедур). 

















Обращение к динамической переменной происходит посредст. 
вом ссылочной переменной, которая содержит адрес соответствующей 
динамической переменной. 

Под ссылочную переменную транслятор отводит место в памяти 
машины; эта переменная имеет имя и явно упоминается в програм¬ 
ме. Ссылочные переменные образуют новый тип данных — «ссылки» 
(указатели). 

Динамические переменные, как правило, имеют тип «запись» 
(RECORD), так как должны содержать, помимо значения (целого, 
вещественного и т. п.), ссылку на другую динамическую переменную 
связанной структуры. 

Пример. Пусть в памяти машины имеется динамическая пе¬ 
ременная, содержащая поле целого значения 2 и поле ссылки (ука¬ 
затель) на другую компоненту связанной структуры (цепочки): 

I 2 I »—I —*• Адрес данной переменной (ссылка) содержится в 


ссылочной переменной 


Обозначим тип 


ссылочной переменной через POINT, а тип динамической пере' 
менной через СТ. Тогда этот факт описывается следующим обра- 
80 м: 

TYPE POINX= t СТ; 


Говорят, что «тип POINT указывает (ссылается) на компоненты ти¬ 
па СТ» или «тип POINT связан с типом СТ». 

Ссылочную переменную R можно описать двумя способами: 


a) TYPE POINT= t СТ; либо б) VAR R: ] СТ; 
VAR R:POINT 


Переменная R указывает на компоненты типа СТ. 

Чтобы связать динамические переменные в цепочку, надо в 
каждой компоненте иметь ссылку на предыдущую компоненту. 

Например, компоненты, содержащие числа 5,10,15,8, должны 
иметь еще информацию о том, где находится предыдущий элемепт, 
так как это не массив и компоненты размещаются необязательно 
подряд. 


I а I Ц — 1 Н — Н~П~1 

Опишем тип таких данных, обозначив его СТ. Очевидно, этот 
тип есть «запись» с двумя полями: полем целого значения (I) и полем 
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ссылки (Р) 

TYPE СТ= RECORD 
I:INTEGER; 

P:POINT 

END; 

Очевидно, ссылочная переменная, указывающая на такого ти¬ 
па данные, должна иметь тоже тип POINT. Опишем этот тип: 
TYPE POINT= Т СТ; 

Как мы видим, возник порочный круг: для описания типа POINT 
привлекается понятие СТ, а при описании типа СТ необходимо ис¬ 
пользовать POINT. 

Условились в этом случае сначала описывать тип ссылочной 
переменной, а затем уже тип компоненты: 

TYPE POINT= Т СТ; 

СТ= RECORD 
I:INTEGER; 

P:POINT 

END; 

Правила языка паскаль только при описании ссылок допускают ис¬ 
пользование идентификатора (СТ) до его описания; во всех осталь¬ 
ных случаях, прежде чем упомянуть идентификатор, необходимо 
описать его тип. Рассмотрим схему образования цепочки динамиче 

ских данных, содержащих числа 5,10. | 10 | —| -» { 5 | »—} -*- 

Машине необходимо произвести следующие действия: 

1. Найти и зарезервировать место в памяти для компоненты! 


ш 

2. Заслать ссылку на эту компоненту (адрес) в ссылочную пе¬ 
ременную R: +■— I 1 


3. Присвоить полю I значение 5: £_ 


4. Присвоить некоторой ссылочной переменной Q значение I 


(скопировать): 

5. Найти и зарезервировать » 


1 памяти для новой комно- 
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6. Заслать в переменную R адрос этой компоненты; 

МІО 

7. Заслать в поле I значение 10: »-> { 10 \ 

8. Заслать в поле Р значение Q: 10 1 Ч — Ч 5 1 1 

Последовательность подобных действий создает цепочку ди¬ 
намических переменных. 


22.1. Процедура NEW 

Резервирование места в памяти под динамическую переменную 
и засылка этого адреса в ссылочную переменную R выполняется 
при обращении NEW(R). При этом выделяется столько ячеек па¬ 
мяти, сколько требует динамическая переменная, с которой связа¬ 
на R. Эти все данные система получает из раздела описания типов 
в программе. 

Динамические переменные, созданные посредством процедуры 
NEW(R), называют также указанными переменными (указатель R). 

Пример. Пусть переменная R имеет тип POINT, описанный 
выше. Тогда после обращения к процедуре NEW(R) будет создана 
указанная переменная, в которой предусмотрено поле под значение 
типа INTEGER и поле ссылки. При этом ссылочная переменная R 
содержит адрес указанной переменной. Через R| обозначается 
сама указанная переменная; R|. I — поле целого значения I, 
RJ.P — поле ссылки Р. 


/ 


А < Поле I >1 <Поле Р> 


22.2. Операции над ссылочными переменными 
Значение ссылочной переменной R можно присваивать другой 
ссылочной переменной того же типа. 

П р и м е р 1. Пусть Q,R:|POINT; тогда оператор Q:=R; 
зашлет в Q тот же адрес, что хранится в R. 

Рассмотрим действия со ссылочными переменными на следую¬ 
щей схеме. Пусть Q и R указывают на различные компоненты дина¬ 
мических переменных типа С: 

C=RECORD 

I:INTEGER; 

P:POINT 

END; 


88 


A 








Пусть в памяти машины размещены две цепочки динамических пе¬ 
ременных (рис. 7): 



Рис. 7 


Выполним один из четырех операторов: Q:= R; Q|:=Rt5 
Q|.I:=R|.I; либо QT.P:=Rt.P; 

а) После выполнения оператора Q:=R; переменная Q указы¬ 
вает на ту же динамическую переменную, что и R: 

Ч is і ч — ЧЖ • і 

б) После выполнения оператора QT:=RTj (иа исходного 
состояния (рис. 7)) получим 


На место указанной переменной Ы *Ч ~*~ ■ указывавшей на 

30, заслана неременная | ^ | , , указывающая на 25. 

в) После выполнения оператора Q|.I: = R|.I из исходного 
состояния (рис. 7) получим следующее: 



На место целого значения 20 заслано значение 15; поле указа¬ 
теля не изменилось. 





т) После вьшолнения оператора Q|.P: = P|.P і 
состояния (рис. 7) получим: 


МН 4 -р Ы 1 

mzeeh 


На место ссылки і 


1 компоненту Н 1 


заслана ссылка 


компоненту Ы ! ’ 


поле целого значения і 


изменилось. 


Ссылочные переменные могут указывать на одну и ту же пере¬ 
менную, т. е. быть равными, как R и Q в случае а). 

Ссылочные переменные можно сравнивать посредством опера¬ 
ций = и < >. Логическое выражение Q = R им ет значение TRUE 
для случая а) и значение FALSE для случаев б) и в), так как для б) 
ссылочные переменные Q и R указывают на разные динамические 
переменные, имеющие, правда, равные значения. 

В качестве аналога нуля для ссылочных переменных принято 
специальное значение NIL: если переменная имеет значение NIL, 
то это означает, что она не указывает ни на какую переменную. Зна¬ 
чение NIL в поле указателя имеет всегда первая компонента цепочки 
динамических переменных. 



Значение NIL можно заслать оператором присваивания: 
L:=NIL; если L=NIL, то цепочка пуста. 

Чтобы определить, что данный элемент является первым в це¬ 
почке переменных, достаточно проверить на NIL значение поля 
указателя этой переменной. 

Пример. IF L|.P=NIL THEN... 

Замечание. Попытка обратиться к указанной пере¬ 
менной с указателем, имеющим значение NIL, приводит к ошибке. 
Диагностика в этом случае не всегда выдается. 

22.3. Процедура DISPOSE 

Динамическая переменная, созданная процедурой NEW, мо¬ 
жет быть «стерта» только процедурой DISPOSE. 

Общий вид: 

DISPOSE(R); 
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Здесь R — ссылочная переменная, указывающая на ту динамиче¬ 
скую переменную, которую следует стереть. После стирания дина¬ 
мической переменной Rf нельзя использовать значение R, такая 
ошибка может привести к порче памяти и другим серьезным послед¬ 
ствиям. 

Динамические переменные, не стертые посредством DISPOSE, 
продолжают занимать место в памяти после окончания работы 
соответствующего блока программы (становятся «мусором»). Поэто¬ 
му необходимо все лишние динамические переменные стереть перед 
окончанием работы блока. 

22.4. Стек («магазин») 

Начнем с рассмотрения примера. Пусть в трубку с запаянным 
концом закатывают шарики (рис. 8). Извлекать их можно только 
в обратном порядке: тот шарик, что закатился последним, будет 
извлечен первым. 

ПО Р 

Рис. 8 

Подобным образом можно организовать и данные. Стек — та 
кая структура динамических данных, которая состоит из перемен¬ 
ного числа компонент одинакового типа. КомпЪненты извлекают¬ 
ся из стека таким образом, что первой выбирается та компонента, 
которая была помещена последней. Извлеченная компонента в стеке 
не сохраняется. 

Пример. Рассмотрим последовательные этапы засылки 
в стек чисел 1,2,3 (рис. 9). 


Стек 



б 2 1 I 

о з г 1 I 

Рис. 9 

На этапе б) обращение к процедуре извлечения из стека дает 
число 2, на этапе в) — число 3. 

Опишем стек, в который можно помещать цепочку динамиче¬ 
ских переменных: 

TYPE STACKP= f STACKCOMP;. 

STACKCOMP= R ECOR D 
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I:INTEGER; 

P:STACKP 

END; 

' VAR S:STACKP; 

Если поместить в этот стек последовательно числа 1,2,3, то полу¬ 
чится следующий вид: 



Поместить в такой стек компоненту можно, например, процеду¬ 
рой SN: 

S:=NIL; 

PROCEDURE 4N,K:INTEGER); 

VAR INEW:STACKP; 

(* ТИП STACKP ДОЛЖЕН БЫТЬ ОПИСАН ВЫШЕ, 
НАПРИМЕР, В PROGRAM *) 

BEGIN 

(* РЕЗЕРВИРУЕТСЯ ПАМЯТЬ ПОД НОВУЮ КОМПОНЕН¬ 
ТУ, А В INEW ЗАСЫЛАЕТСЯ АДРЕС ЭТОЙ КОМ¬ 
ПОНЕНТЫ *) 

NEW (INEW); 

WITH INEW DO 
BEGIN I: = K; P:=S END; 

S:=INEW; 

Если со стеком вида 1) обратиться к процедуре SN для засылки чис¬ 
ла 4, то получим стек вида 2); 


Процедура извлечения компоненты из такого стека может иметь 
следующий вид: 

PROCEDURE OUT(VAR K:INTEGER); 

VAR IOLD:STACKP; 

BEGIN 

IOLD:=S; 

(* АДРЕС ПОСЛЕДНЕЙ КОМПОНЕНТЫ*) 

" K:=IOLD 1.1; 









(* ИЗВЛЕКАЕТСЯ И ЗАСЫЛАЕТСЯ В S ЗНАЧЕНИЕ 

СООТВЕТСТВУЮЩЕГО УКАЗАТЕЛЯ НА 3 *) 

S:=IOLD t Р; 

DISPOSE (IOLD) 

END; 

После обращения к процедуре OUT стек вернется к виду 1). 

Пустым стеком называется стек, не содержащий компонент. 
Такой стек можно получить, присвоив значение NIL соответствую¬ 
щей ссылочной переменной (в нашем случае S:=NIL;). 

Если к пустому стеку применить несколько раз процедуру gjv, 
а затем столько же раз процедуру OUT, то получим снова пустой 
стек. 

Замечание. Нельзя применять процедуру OUT к пустому 
стеку. 

Стеки позволяют'гибко и экономно использовать память, так 
как в каждый момент в стеке могут находиться только те перемен¬ 
ные, которые нужны для дальнейшей работы программы. (В то вре¬ 
мя как под массивы, например, мы часто вынуждены резервировать 
и держать избыточную память). 

22.5. Очередь 

Очередь — такая структура данных, при которой изъятие ком¬ 
понент происходит из начала цепочки, а запись — в конец цепочки. 

В этом случае вводят два указателя: один на начало очереди, 
другой — на ее конец. 

22.6. Дозапись новых компонент 


Пример. Пусть имеется цепочка динамических переменных 
(рис. 10). 



Рис. 10 


Переменные имеют описанный выше тип STACKCOMP 

Требуется вставить в цепочку новую компоненту | j | . | 


после компоненты 



известен указатель 


NEWP .—> | з I . I . 






•Для записи этой новой компоненты достаточно выполнить опе¬ 
раторы: 

NEWP Т .P:=L Г .Р; 

L Г .P:=NEWP; 

Первый оператор засылает в поле указателя новой компоненты 
I 3 l<NEWPt.P>- 1 ссылку на компоненту | 2 | « 1 • Эта ссылка 

находится в поле указателя последней компоненты: | 4 { <ія Р> 1 1 
т. ѳ. получается следующий вид: 



Второй оператор помещает в поЯе указателя компоненты U I • I 


ссылку на компоненту | з | » | 


. Получается следующая картинка: 



Задача. Построить цепочку динамических переменных, со¬ 
держащих целые числа, а затемПмежду 4-й и 5-й переменной вста¬ 
вить новую динамическую переменную. 

Пусть требуется построить такую цепочку: 


ИЕН-- ШЗ—Ч2Ш-| 



в вставить элемент | и j • | между , QZ3 и ЩЗ 
Решение: 

PROGRAM POINT (INPUT,OUTPUT); 

TYPE INTP=|INTREC; 

INTREC= RECORD 
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LINTEGER; 

P.INTP 

END; 

VAR IP,IR,INSERTI, INSERT4,INSERT5,WRTP:INTPi 
N,K,L,M:INTEGER; 

BEGIN 

IR: = N1L;N:=10; 

FOR K:=l TO N DO 

BEGIN READ(L); WRITE (' ',L); 

NEW (IP); IPt.I:=L; IPf.P: = IR; IR:=IP; 

IF K=5 THEN 

BEGIN INSERT5:=IP; INSERT4:=IP|.P END 
END; 

WRITELN; 

READ(L); WRITELN(' L=',L); 

NEW(INSERTI); INSERTI|.I:=L; 
INSERTI|.P:=INSERT4; 

INSERT5t.P: = INSERTI; 

FOR K:=l TO N H- 1 DO 

BEGIN WRTP:=IR; M:=WRTPt.I; WRITE M); 
IR: = WRTPf.P; 

DISPOSE(WRTP) 

END; 

WRITELN 

END. 


Результат: 

12345678. ..10 
L = 11 

10 9 8 7 6 5 11 4 ... 1 
9 

8 

7 

6 

5 

11 
4 
3 
2 


Вводятся числа: 1; 2; 3; 4; 5; 6; 7; 8; 9; 10 и 11. Между 4 и 5 
вставляется число 11. 
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22.7. Нелинейные структуры 

До сих пор мы рассматривали линейные структуры динамиче¬ 
ских переменных. 

Введение в динамическую переменную двух и более полей ука¬ 
зателей создает возможность получать нелинейные структуры. 
Примеры нелинейных структур показаны ниже, 
а) Текст 




d 

чтгп 

п 

HIM 

f .. 


Mill 

Ч'"І .Г"Ч 

в) Направленный граф можно представить 




|nil[nil| 
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а) Текст — это связанная структура. Ее элементы представ 
ояют собой записи с тремя полями: первое поле содержит текстовую 
информацию (например, слово), второе поле либо указывает на пер- 

















































вый элемент следующей строки, либо имеет значение NIL, третье — 
на следующий элемент данной строки. 

б) Компонента двоичного дерева также имеет три поля: пер¬ 
вое поле содержит основную информацию (число, символ, слово 
и т. д.), а второе и третье поля содержат ссылки на предыдущую 
и последующую компоненты дерева. Для некоторых элементов де¬ 
рева одно из этих полей либо оба имеют значение NIL. 

в) Посредством ссылок можно выразить все связи в структуре, 
моделирующей направленный граф: вершинам графа соответствуют 
сами динамические переменные, а ребрам — ссылки. 

Углом называют переменную, содержащую два различных, от¬ 
личных от NIL, значения указателя. Так, узловые элементы текста 
содержат ссылки на очередной элемент данной строки и на первый 
элемент следующей строки. 

Нелинейные структуры удобны для задач поиска. Список упоря¬ 
доченных элементов в виде двоичного дерева представлен на рис. 11. 
Узел 4 называется корнем дерева. Вход 
в дерево происходит только через ко¬ 
рень. Для каждого узла различаются 
левое и правое поддеревья. Упорядочен¬ 
ность элементов следующая: элементы 
левого поддерева меньше узла и мень¬ 
ше элементов правого поддерева. 

Время поиска в двоичном дереве 
сокращается по сравнению с линейной 
структурой с ~N до ~log 2 N, где N — число узлов в 
дереве. Компоненту двоичного дерева можно представить перемен¬ 
ной типа 

BIREC= RECORD 
I:INTEGER; 

PRED,SUCC:INTP 

END; 

Каждая такая переменная содержит три поля: поле целого значе¬ 
ния — поле I, поле указателя на предыдущий (в смысле упорядо¬ 
ченности) элемент — поле PRED и поле указателя на последующий 
элемент — поле SUCC. 

23. Работа с внешними модулями *) 

Паскаль позволяет работать с внешними процедурами (функ¬ 
циями), которые существуют вне главной программы (PROGRAM). 


*) Работа с внешними модулями — расширение стандарта язы¬ 
ка паскаль. 



Рис. 11 


Г. П. Семашко, A. U, Салтыков 




Если модуль является стандартным (библиотечным), то никаких 
описаний его в программе не требуется. 

В остальных случаях внешний модуль должен быть описан в 
PROGRAM следующим образом: 

1. Процедура паскаля: 

PROCEDURE N(P1:T1;...);EXTERNAL; 

Здесь N — имя процедуры, Р1, ... — формальные параметры, 
Т1,...— типы формальных параметров (напоминаем, что параметру, 
предназначенному для результата, должно предшествовать ключе¬ 
вое слово VAR). 

2. Функция паскаля: 

FUNCTION F(X:TYPEXj . . .):TYPEF; EXTERNAL; 

Здесь F — имя функции, X — формальный параметр, TYPEX — 
тин этого параметра, TYPEF — тип результата, EXTERNAL 
(EXTERN) — указание на то, что эта функция существует вне дан¬ 
ной программы. 

Замечание. На БЭСМ-6 следует писать EXTERNAL, 
на ЕС ЭВМ — EXTERN; 

3. Подпрограмма фортрана: 

PROCEDURE SUB (X:TYPEX; ...; FORTRAN; 

Здесь X — параметр, TYPEX — его тип, FORTRAN — указанно 
на то, что использован фортранный модуль. 

4. Подпрограмма-функция фортрана: 

FUNCTION F(X:TYPEX;...):TYPEF; FORTRAN; 

Ниже приводится пример, который поможет читателю ис¬ 
пользовать внешние модули в своих программах. 

Пример. (ЕС ЭВМ). 

//TEST5 JOB С3746, SEMASHKO,MSGLEVEL=(2,jO) 

// _ЕХЕС FORTGC 
//FORT. SYSIN DD • 

SUBROUTINE SUB(X) 

С ТРАНСЛЯЦИЯ SUB 
Х=2. 

RETURN 

END 

FUNCTION F(X) 

С ТРАНСЛЯЦИЯ F 
F=4*X 
RETURN 
END 

//_,ЕХЕС PASC 
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//PASC.SYSIN DD . 

PROGRAM FILLER (OUTPUT); . 

(* ТРАНСЛЯЦИЯ PROC *) 

(* ПЕ+ *) 

PROCEDURE PROC (VAR X:REAL)i 
BEGIN X:=1.0 END; 

BEGIN END. 

// _^ЕХЕС PASC 
//PASC.SYSIN DD * 

PROGRAM FILLE(OUTPUT); 

(* ТРАНСЛЯЦИЯ FUNPSCL .) 

(* ПЕ+ *) 

FUNCTION FUNPSCL(X:REAL):REAL; 

BEGIN FUNPSCL:=3.0_iEND; 

BEGIN END. 

//^EXEC PASCLG, 

//PASC.SYSIN DD * 

PROGRAM GETHER (OUTPUT); 

(* ТЕСТ НА ВНЕШНИЕ МОДУЛИ *) 

VAR A,B:REAL; 

PROCEDURE SUB(VAR X:REAL); FORTRAN; 
FUNCTION F(X:REAL):REAL; FORTRAN; 
FUNCTION FUNPSCL(X:REAL):REAL; EXTERN; 
PROCEDURE PROC (VAR X:REAL); EXTERN; 
BEGIN A:=1.0; 

SUB(B); WRITE(' SUB(B):' ,B, T(A)= ',F(A)); 
A:=FUNPSCL(A); WRITELN(' A=',A); 
PROC(B);WRITELN(' PROC(B):', 
B,'FUNPSCL(A)=',A) 

END. 

//LKED.SYSLIB DD 

II DD DSN=SYSl.FORTLIB,DISP=SHR 

//GO.SYSIN DD . 

// 


Результаг 

SUB(B):2.000...F(A)=4.000...A=3.000... 

PROC(B): 1.000...FUNPSCL(A)=3.000... 

В этом примере выполняется программа GETHER, использующая 
вяешнне фортранные модули SUB и F, а также модули паскаля 
PROC и FUNPSCL, описанные вне программы GETHER. 

Внешние процедуры и функции не должны иметь в качестве 
параметров параметры-функции и сами не могут быть переданы в 
качестве параметров. 
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Внешняя процедура может использоваться рекурсивно й пере¬ 
дана как парамотр только процедуре, декларированной внутри 
нее самой. 


23.1. Трансляция внешних модулей 

Необходимо соблюдать следующие правила. 

1. Внешние паскаль-процедуры и функции транслируются 
только в режиме Е+ (см. п. 24). 

2. Режим Е+ должен быть установлен до декларации внешней 
процедуры. 

В атом режиме не должны транслироваться внутренние про¬ 
цедуры и главная программа. 

3. Допускается только два уровня вложения внешних про¬ 
цедур. Однако сама внешняя процедура может иметь несколько 
уровней вложения внутренних (для нее) процедур. 

4. Если во внешней процедуре описываются глобальные пере¬ 
менные, константы или типы, то они должны в точности совпадать 
по описанию с соответствующими переменными, константами, ти¬ 
пами в PROGRAM. 

5. Если однажды установлен режим Е+, то нельзя его уста¬ 
навливать повторно. 

Когда паскаль-программа вызывает фортранную подпрограмму 
или функцию, надо учитывать следующее. 

1. Тип REAL на ЕС ЭВМ соответствует фортранному DOUBLE 
PRECISION (или REAL*8). 

2. Тип BOOLEAN соответствует фортранному LOGICAL. 

3. Массивы паскаля располагаются по строкам, а массивы 
фортрана — по столбцам. 

Замечание. При передаче двумерного массива в качестве 
параметра из паскаль-процедуры в фортранную (и обратно) этот 
массив необходимо транспонировать. 

24. Режимы трансляции 

Режимы трансляции задаются комментариями особого вида 
(псевдокомментариями): 

(* СН R1.R2,... .) 

Здесь (* и *) — ограничители, СН — специальный символ, пре¬ 
вращающий комментарий в управляющую карту, R1,R2 — зада¬ 
ваемые коды режимов трансляции. На БЭСМ-6 СН — это символ 
«=», на ЕС ЭВМ СН — это символ «$» (либо совпадающий с ним по 
кодировке знак Q). 

Каждый код режима состоит из двух символов: буквы, эа 
которой следует либо знак («+» или «—»), либо цифра. 
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Знак «+» означает включение данного режима, знак «—» отказ 
от него. 

Пример. 

(* =Т+,Е+,Р- *) либо (* 0Т+, Е+, Р- .) 

Чаще всего используются следующие режимы: 

1. Т — этот режим обеспечивает динамические проверки во 
время счета: 

а) всех операций с индексными переменными на принадлеж¬ 
ность каждого индекса допустимому диапазону индексов; 

б) всех операторов присваивания на принадлежность значений 
переменных ограниченного типа соответствующему подмножеству; 

в) всех делителей в операциях деления (на нуль); 

г) всех автоматических преобразований 

INTEGER - REAL на ABS(I) < =MAXINT; 

д) всех операторов CASE на соответствие переключателя од¬ 
ной из меток CASE. 

По умолчанию установлен Т+. 

Для отлаженных программ рекомендуется использовать Т—. 
Это ускоряет выполнение программы. 

2. Р позволяет выдавать подробную информацию при «авос- 
тах» (аварийных остановах — прекращении счета при ошибке). 
В режиме Р+ выдаются значения локальных переменных, иденти¬ 
фикаторы вызванных процедур (функций) и номера строк програм¬ 
мы, в которых начинаются соответствующие составные операторы. 

По умолчанию установлен Р+. 

Для отлаженных программ следует указывать режим Р—, 
что экономит память и время выполнения программы. 

3. Е позволяет так транслировать процедуры и функции, 
что к ним можно обращаться из других программ как к внешним 
модулям. 

Если данная процедура используется как EXTERNAL, то 
ее необходимо транслировать только в режиме Е+. 

По умолчанию установлен Е—. 

4. U+ вее символы входной строки, начиная с 73-го, счита¬ 
ются комментариями. На БЭСМ-6 режима U нет. Если использу¬ 
ется U —, то все символы, начиная со 121-го, считаются коммен¬ 
тариями. 

5. BN — для БЭСМ-6. Пусть S — нижняя граница размера 
памяти, выделенной под буфер файлов, S > 256*N. 

По умолчанию установлено N=1. 

В+ для ЕС ЭВМ — зарезервированные паскалем ключевые 
слова (AND,ARRAY,WITH) на листинге АЦПУ печатаются 
жирно. 
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По умолчанию установлен В—. 

6. L управляет информацией об исходной программе, выда¬ 
ваемой на АЦПУ. 

На ЕС ЭВМ: 

Ы-подробная выдача, 

L -режим счета, подавление листинга программы. 

По умолчанию установлен L+. 

На БЭСМ-6: 

L0 — выдаются только сообщения об ошибках (*NO LIST); 
L1 — выдается таблица загрузки и текст программы; 

L2 — дополнительно к информации, выдаваемой по L1, вы¬ 
даются коды стандартного массива (см. [7]). 

По умолчанию установлен L1, 


ПРИЛОЖЕНИЕ 1 

ПРОГРАММА ИЗМЕНЕНИЯ ДЛИНЫ СТРОК ТЕКСТА 
(пример использования записей с вариантами) 


Задача. Составить программу, вводящую текстовую ин¬ 
формацию со строками длиной до 80 символов и выдающую этот 
же текст со строками длиной до 60 символов (без разбиения слов 
при переносе). 

В тексте могут присутствовать пустые строки; абзац начина¬ 
ется с нескольких пробелов. Абзацем будем считать любую непус¬ 
тую строку, имеющую три и более пробелов в начале. Конец всего 
текста пусть будет отмечен специаль¬ 
ным символом EOT, конец строки — 
символом EOL. 

Тогда любой текст можно пред¬ 
ставить в виде последовательности эле¬ 
ментов: слов, знаков препинания и сим = 
волов EOL и EOT. Все элементы раз¬ 
деляются пробелами. Простейшая схема 
программы приводится на рис. 12. 

Напомним, что слова не разбивают¬ 
ся для переноса: если слово умещает¬ 
ся, оно записывается в данную выход- 
ную строку; если не умещается, то сло¬ 
во целиком записывается в следующую 
строку OUTPUT. Элемент «слово» и 
элемент «знак» неравнозначны: знак 
обязательно должен стоять в той же 
строке, что и слово, за которым он пос¬ 
тавлен, а последовательные слова мож¬ 
но писать в разных строках. 



Рис. 12 


Поэтому программа после ввода каждого элемента должна 
ввести еще один элемент и только после его анализа обрабатывать 
предыдущий (оставлять на текущей строке либо переносить на сле¬ 
дующую). 
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Усложненная схема программы, имя которой INOUT, при¬ 
водится на рис. 13. 

Пусть чтение элемента выполняется процедурой RNEXT и 
эапись — процедурой WTHIS. 



Рис. 13 


Если, в исходном тексте есть абзац или пустая строка, то будем 
считать, что в соответствующем месте текста есть некоторый эле¬ 
мент, играющий роль управляющего символа (CONTR). 

Тогда весь текст можно себе представить состоящим из следую¬ 
щих элементов: слов (WORD), знаков препинания (PUNCT), уп¬ 
равляющих символов (CONTR) и признака «конец текста» (EOT). 

Будем считать, что слово состоит не более чем из 16 символов. 

В этих предположениях произвольный элемент (ITEM) текста 
описывается как запись с вариантами: 

TYPE ITEM=(WORD,PUNCT,CONTR,EOT); 

TEXTITEM= RECORD 
CASE KIND:ITEM OF 
WORD:(L:1..16; 

SP:ARRAY[1..16] OF CHAR); 

PUNCT:(P: CHAR); 
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CONTR: (C: (J UMP, ABZ)); 
EOT:( ) 

END; 


Если текущий элемент есть «слово» (WORD), то задается его длина 
L и массив SP на 16 символов, где размещаются буквы этого слова; 
если элемент — «знак» (PUNCT), то в Р находится соответствующий 
символ; если элемент — «управляющий символ» (CONTR), то в 
С находится признак «пустая строка» (JUMP) либо «абзац» (ABZ). 
Символ «конец текста» (EOT) служит только признаком конца и 
в выходной текст не попадает. 



Рис, 14 
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Введем две переменные THIS и NEXT для хранения элемента 
текста 

VAR THIS,NEXT:TEXTITEM 

Процедура RNEXT должна прочитать символы, составляющие 
следующий элемент входного текста, проанализировать и помес¬ 
тить информацию в переменную NEXT,, т. ѳ, заполнить соответст¬ 
вующее поле записи типа ТЕХТІТЕМ для переменной NEXT. 

Удобнее вводить из INPUT не по одному элементу текста, а 
по целой строке. Для этого заведем массив LINE длиной от 1 до 
INMAX символов по числу символов во входной строке: 

LINE:ARRAY [1.. INMAX] OF CHAR 
В нашем конкретном случае входная строка содержит до 80 сими 
волов. Для упрощения алгоритма программы будем отмечать конец 
входной строки каким-либо специальным символом, например «!». 
Этот символ поместим в LINE после последнего отличного от про¬ 
бела символа введенной строки. Таким образом, длина массива 
LINE должна быть на 1 больше длины входной строки, т. е. для 
входной строки в 80 символов ШМАХ==81. 

Элементы строки процедура выбирает из массива LINE. Схема 
RNEXT приводится на рис. 14. 

Задачу «обработать элемент текста» можно оформить в вида 
процедуры SCAN (рис. 15). 



На последнем этапе работы программы потребуется формиро¬ 
вать выходные строки текста в файле OUTPUT. Запись элемента 
аекста в выходную строку можно осуществить следующей процѳ 
дурой WTHIS (рис. 16). 
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Приведем полный текст программы. Здесь 
INMAX — максимальная длина входной строки плюс единица; 
OUTMAX — максимальная длина выходной строки; 

EOT — признак конца текста; 

EOL — признак конца строки; 

LLINE — длина текущей входной строки; 

THIS — предыдущий элемент текста; 

NEXT — последующий элемент текста; 

LINE — массив для хранения входной строки^ 
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POS — номер текущей позиции в строке; 

FREE — количество оставшихся свободных позиций в строке; 
К — номер символа в слове; 

SP — массив для хранения слова; 

SPACE — число позиций, требуемое под очередное слово в вы¬ 
ходной строке. 

PROGRAM INOUT (INPUT,OUTPUT); 

(* ПРЕОБРАЗОВАНИЕ 80-СИМВОЛЬНОЙ СТРОКИ В 60- 
СИМВОЛЬНУЮ *) 

CONST ШМАХ=81; 

EOL='!'; 

ЕОТ= V; 

OUTMAX=60; 

TYPE ITEM= (WORD,PUNCT.CONTR, EOT); 
TEXTITEM=RECORD 
CASE KIND:ITEM OF 
WORD:(L:1..16; 

SPcARRAY (.1..16.) 

OF CHAR); 

PUNCT:(P:CHAR); 

CONTR:(C:(JUMP,ABZ)); 

EOT:( ) 

END; 

LLINE=1..INMAX; (* ДЛИНА BX. СТРОКИ *) 

VAR THIS, NEXTiTEXTITEM; 

LINE:ARRAY(.LLINE.) OF CHAR; 

POS:LLINE; (* НОМЕР ПОЗИЦИИ В СТРОКЕ *) 
FREE:O..OUTMAX; 

PROCEDURE RNEXT; 

(* ЧТЕНИЕ ЭЛЕМЕНТА ИЗ LINE *) 

PROCEDURE RLINE; 

(♦ ВВОД СТРОКИ ИЗ INPUT ♦) 

VAR M:LLINE; 

BEGIN (* RLINE *) 

M:=l; 

WHILE NOT EOLN(INPUT) DO 
BEGIN READ(LINE(.M.));M:=M+1 END; 

READLN; 

LINE(.M.):=EOL; POS:=l 
END; (* RLINE ♦) 

PROCEDURE SCAN; 

(* ОБРАБОТКА ЭЛЕМЕНТОВ - 'СЛОВО' 

И 'ЗНАК ПРЕПИНАНИЯ '*) 

VAR К:0..16; 

ST:SET OF CHAR; 

: .108, 



BEGIN (* SCAN *) 

ST: 

WITH NEXT DO 
CASE LINE (.POS.) OF 
' A' Б' B' Г' / Д' E' ,'Ж' 3', 
'К'/Л'/М'/Н'.'О'.'П'/Р'/С', 

' у Y Ф',' x Ц'чш',' Щ','Ы', 
'Э'/Ю'/Я'/И'/Т'.'Ь'/В', 

'О'1'2'I' D' /3' F'G' ,'4', 
'J'/S'/L'/e'/N'/r/e'.'Q', 

'S' ,'9' ,'U' /V' W'Y' ,'Z': 

BEGIN (* НАЧИНАЕТСЯ С БУКВЫ *} 
KIND:=WORD; K:=0; 

REPEAT K:=K+1; 
SP(.K.):=LINE(.POS.); 

POS:=POS+l 

UNTIL (LINE(.POS.) IN ST)j 
L:=K 
END; 

BEGIN’ (* ЗНАК ПРЕПИНАНИЯ 
KIND:=PUNCT; 

P:=LINE(.POS.); 

POS: = POS+l 
END; 

'*':KIND:=EOT (* КОНЕЦ ТЕКСТА *) 

END (* CASE *) 

END; (* SCAN *) 

BEGIN (* RNEXT *) 

WHILE LINE(.POS.)=' ' DO POS:=POS+lj 
IF LINE (.POS.)=EOL 
THEN IF EOF (INPUT) 

THEN NEXT.KIND:=EOT 
ELSE BEGIN RLINE; 

WHILE LINE (.POS.)=' 

DO POS:=POS+l; 

WITH NEXT DO 
IF LINE(.POS.)= EOIi 
THEN BEGIN 
KIND:=CONTR; 

C:=JUMP 
END 

ELSE IF POS >2 
THEN BEGIN 
KIND:=CONTR; 
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C:=ABZ 

END 

ELSE SCAN 
END 

ELSE SCAN 
END; (* RNEXT .) 

PROCEDURE WTHIS; 

(. ЗАПИСЬ THIS В OUTPUT .) 

VAR SPACE:1..18; 

M:1..16; 

PROCEDURE NEWL; 

(* ПЕРЕХОД К НОВОЙ ВЫХ. СТРОКЕ *) 
BEGIN 
WRITELN; 

WRITE(' '); 

FREE: = OUTMAX—1 
END; (* NEWL *) 

BEGIN (* WTHIS *) 

WITH THIS DO 
CASE KIND OF 
WORD:BEGIN (* 'СЛОВО' *) 

IF NEXT.KIND=PUNCT 
THEN SPACE:=L+2 
ELSE SPACE:=L+1; 

IF SPACE > FREE 
THEN NEWL 

ELSE IF FREE < > OUTMAX 
THEN BEGIN 
WRITE (' '); 

FREE:=FREE—1 
END; 

FOR M: = l TO L 

DO WRITE (SP(.M.)); 

FREE:=FREE—L 
END; 

PUNCT:BEGIN (* ЗНАК ПРЕПИНАНИЯ .) 
WRITE(P); FREE:=FREE—1 
END; 

CONTR:BEGIN (.'ПРОПУСК СТРОКИ' ЛИБО 
IF FREE<OUTMAX 
THEN NEWL; 

IF C=JUMP 
THEN NEWL 
ELSE BEGIN 
WRITE (' '); 


'АБЗАЦ' .) 
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FREE:=FREE—2 
END 
END; 

EOT: BE GIN (* КОНЕЦ ТЕКСТА *) 

FOR M:=l TO L DO 
WRITE (SP(.M.)); 

FREE:=FREE—L 
END 

END (. CASE *) 

END; (* WTHIS «) 

BEGIN (. INOUT *) 

LINE(.4.):=EOL; POS:=l; 

FREE:=OUTMAX; 

RNEXT; 

WRITE FREE:=FREE—1; 

REPEAT 

THIS:=NEXT; (* ПЕРЕПИСЬ ЭЛЕМЕНТА 
ТЕКСТА В THIS.) 

RNEXT; 

WTHIS (. ВЫДАЧА THIS В ВЫХ. СТРОКУ *) 
UNTIL NEXT.KIND=EOT; 

END. (* INOUT .) 




ПРИЛОЖЕНИЕ 2 

ПРОГРАММА РЕШЕНИЯ ЗАДАЧИ О ХАНОЙСКОЙ БАШНЕ 

(пример использования рекурсивной процедуры) 

В одной из древних легенд говорится следующее. «В храме 
Бенареса находится бронзовая плита с тремя алмазными стержня¬ 
ми. На один из стержней бог при сотворении мира нанизал 64 
диска разного диаметра из чистого золота так, что наибольший 
диск лежит на бронзовой плите, а остальные образуют пирамиду, 
сужающуюся кверху. Это — башня Брамы. Работая день и ночь, 
жрецы переносят диски с одного стержня на другой, следуя зако¬ 
нам Брамы: 

1) диски можно перемещать с одного стержня на другой толь¬ 
ко по одному; 

2) нельзя класть бблыпий диск на меньший. 

Когда все 64 диска будут перенесены с одного стержня на дру¬ 
гой, и башня, и храмы, и жрецы-брамины превратятся в прах и 
наступит конец света». 

Эта древняя легенда породила задачу о Ханойской башне: пе¬ 
реместить т дисков с одного из трех стержней на другой, соблюдая 
«законы Брамы». 

Назовем стержни левым (LEFT), средним (MIDDLE) и пра¬ 
вым (RIGHT). Задача состоит в переносе m дисков с левого стерж¬ 
ня на правый (рис. 17). 



Рис. 17 

Задача может быть решена одним перемещением только для 
одного (ш = 1) диска. В общем случае потребуется 2 т-і перемеще¬ 
ний. 


112 











Построим рекурсивное решение задачи, состоящее из трех 


этапов: 

а) перенести башню, состоящую из (m — 1) диска, 
стержня на средний (рис. 18): 



1±-±А 


с левого 


ПРАВ. 


Рис. 18 


б) перенести один оставшийся диск с левого стержня на правый 
(рис. 19): 



Рис. 19 


в) перенести башню, состоящую из (m — 1) диска, со среднего 
стержня на правый (рис. 20): 




СРЕДИ. 



Рис. 20 


Таким образом, задача о перемещении m дисков сводится к за¬ 
даче о перемещении (т — 1) диска. Обращаясь опять к этому же 
алгоритму, сведем задачу к перемещению (т — 2) дисков. Про¬ 
должая этот процесс, получим в конце концов задачу о перемеще¬ 
нии одного диска. Эта задача решается за один ход. Таким обра¬ 
зом, в процессе решения возникают промежуточные задачи: пере¬ 
местить башню из нескольких (п) дисков с одного стержня на другой. 
Обозначим тот стержень, с которого следует снять диски, че¬ 
рез Si, на который надеть — через S K , а вспомогательный стер¬ 
жень через S w . 

Оформим алгоритм решения задачи о переносе башни из п 
дисков с Si на S K в виде процедуры MOVE с 4-мя параметрами: 
N, SI, SW, SK; алгоритм для п = 1 выделим в отдельную проце¬ 
дуру STEP, которая «перемещает» один диск со стержня S1 на SK, 
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Приведем блок-схему задачи о Ханойской башне (рис. 21). 



Рис. 21 


Ниже приводится программа задачи о Ханойской башне и ре- 
вулиат для перемещения 5 дисков. 

PROGRAM HANOY (INPUT, OUTPUT); 

(* ЗАДАЧА О ХАНОЙСКОЙ БАШНЕ *) 

TYPE ST=(LEFT, MIDDLE, RIGHT); 

(* NAT - МНОЖЕСТВО ; НАТУРАЛЬНЫХ ЧИСЕЛ «)! 
NAT=1..MAXINT; 

VAR M:NAT; (« М - ЧИСЛО ДИСКОВ .) 

PROCEDURE MOVE (N:NAT; SI, SW, SK:ST); 

(» ПЕРЕМЕЩЕНИЕ N ДИСКОВ C SI HA SK; 

SW — ВСПОМОГАТЕЛЬНЫЙ СТЕРЖЕНЬ *) 

PROCEDURE STEP; 

(* ПЕРЕМЕЩЕНИЕ ОДНОГО ДИСКА С S1 НА SK *) 
PROCEDURE PRINT (S:ST); 

BEGIN 
CASE S OF 
LEFT:WRITE ('ЛЕВ.'); 

MIDDLE:WRITE (СРЕДИ.'}; 

RIGHT:WRITE ('ПРАВ.') 

END («CASE*) 

END; («PRINT.) 
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BEGIN (* STEP «) 

WRITE ('СНЯТЬ ДИСК С'); 

PRINT(Sl); 

WRITE(' НАДЕТЬ НА ');. 

PRINT(SK); 

WRITELN 
END; (* STEP *) 

BEGIN (* MOVE *) 

IF N=1 THEN STEP 
ELSE BEGIN 

MOVE (N— t, SI, SK, SW); 

STEP; 

MOVE (N—1, SW, SI, SK) 

END 

END; (* MOVE *) 

BEGIN (* HANOY *) 

READ(M); (* M - ЧИСЛО ДИСКОВ .) 

WRITELN; ('ДЛЯ', M:3, 'ДИСКОВ СЛЕДУЕТ, 

'ПРОИЗВЕСТИ СЛЕДУЮЩИЕ ДЕЙСТВИЯ:') 
MOVE (М, LEFT,MIDDLE,RIGHT) 

END. 

Результат работы программы: 

5 

ДЛЯ 5 ДИСКОВ СЛЕДУЕТ ПРОИЗВЕСТИ 
СЛЕДУЮЩИЕ ДЕЙСТВИЯ: 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 


СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ПРАВ. НАДЕТЬ НА СРЕДИ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ЛЕВ. 

СНЯТЬ ДИСК С СРЕДИ. НАДЕТЬ НА ПРАВ. 

СНЯТЬ ДИСК С ЛЕВ. НАДЕТЬ НА ПРАВ. 

Итак, при решении поставленной задачи для пирамиды 
пяти дисков необходимо произвести 31 перемещение. Это все; 
в нас оптимизм: жрецам придется долго трудиться, прежде 
«наступит конец света». 


ПРИЛОЖЕНИЕ 3 

НАЧИНАЮЩЕМУ ПОЛЬЗОВАТЕЛЮ ПЕРСОНАЛЬНОГО 

КОМПЬЮТЕРА О TURBO -ПАСКАЛЕ 

Как уже упоминалось выше, трансляторы с языка паскаль име¬ 
ются практически на ЭВМ всех типов. Особенно удобна для работы 
система Turbo Pascal на персональных компьютерах (ПК), сов¬ 
местимых с IВС PC (ЕС-1840/41, ЕС-1850 и др.). Эта система состо¬ 
ит из транслятора, сервисных и прикладных программ. Транслятор 
реализует стандарт языка паскаль и предоставляет ряд дополни¬ 
тельных возможностей, в частности, работу с данными типа BYTE 
(последовательность бит) и STRING (строка символов). Разреша¬ 
ется также использовать и прописные, и строчные буквы в любом 
сочетании. 

В этом кратком приложении мы не ставим себе цель дать по¬ 
следовательное и полное описание языке паскаль для ПК. Мы хо¬ 
тим помочь пользователю преодолеть психологический барьер и 
начать работать в системе Turbo Pascal; удобный и мощный язык, 
комфортный сервис экранного редактора, богатые графические воз¬ 
можности не могут никого оставить равнодушным. Получив началь¬ 
ные навыки, пользѳватель затем в процессе работы сам освоит все 
необходимые ему возможности системы. 

Здесь мы приводим краткое руководство по работе на ПК, ил¬ 
люстрируемое на конкретных примерах. Предполагается, что поль¬ 
зователь знаком,с клавиатурой ПК и имеет хотя бы небольшой опыт 
работы в системе DOS *). 

Чтобы отличать информацию, выводимую компьютером на эк¬ 
ран, от информации, набираемой пользователем, последнюю будем 
выделять курсивом. Название не алфавитно-цифровых клавиш возь¬ 
мем в угло'вые скобки. Например, клавишу перевода строки будем 
обозначать <RETURN> «ENTER». 

Пусть мы хотим составить и выполнить программу, которая 
вводит с клавиатуры два вещественных числа и выводит их на 
экран. Вот ее г текст. 

.PROGRAM N1 (INPUT, OUTPUT); 

VAR A,B:REAL; 


*) Пул Л. Работа на персональном компьютере / Пер. с англ.— 
М.: Мир, 1986.— 383 с. 

Хаузер Д., Хирт Дж., Хоукинс Б. Операционная система 
MS-DOS: Популярное руководство / Пер. с англ, и дополн. 
А. Б. Пандре.— М.: Финансы и статистика, 1987.— 168 с. 
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BEGIN 

READ (A, В); WRITELN (' A=\A,' B=',B); 

END. 

Пример сеанса работы. Вы должны иметь две дискеты: одну 
е системой DOS, другую с системой Turbo. 

1. Дискету с DOS вставьте в дисковод А, дискету с Turbo — 
в дисковод В. 

2. Включите компьютер. Система DOS попросит набрать теку¬ 
щую дату. Наберите ее, нажмите клавишу < RETURN > (< ENTER ». 
Затем в ответ на запрос системы наберите текущее время и нажмите 
< RETURN > (< ENTER ». В дальнейшем будем обозначать эту 
клавишу только (RETURN}. 

3. После загрузки DOS проведите следующий диалог: 

а) А > В: < RETURN > — переключение на дисковод В; 

б) В > TURBO < RETURN > — вызов системы Turbo; 

в) INCLUDE ERROR MESSAGE (Y/N)?' Y - включение вы¬ 
дачи диагностики ошибок; 

г) >W — заказ рабочего файла; 

д) WORK FILE NAME: TEST1 < RETURN > - присвоение 
файлу имени TEST1; 

е) LOADING В: TEST!.PAS- 

NEW FILE — сообщение системы: «новый файл»; 

ж) >Е — перевод системы в режим редактирования (EDIT) 

4. После этого сверху появится строка 

LINE1 COLI INSERT IDENT В: TEST1.PAS 

Система расширила имя файла, добавив точку и PAS, указы¬ 
вающие, что файл содержит паскаль-программу. Теперь можно 
набирать текст программы. 

PROGRAM N1 (INPUT, OUTPUT ); < RETURN > 

VAR A,B:REAL ; < RETURN > 

BEGIN < RETURN > 

READ ( A, В ); WRITELN(‘A = \A,‘B=\B) <RETURN > 

END. < RETURN > 

5. Если ошибок в программе вы не нашли, продолжайте 
диалог: 

з) <F10y — выход в систему Turbo; 

и) >5 — запись файла с программой на дискету; 

к) SAVING В: TEST1.PAS — подтверждение системы, что 
запись выполнена; 

л) >Я — запуск задачи на трансляцию и счет. 

Если система не обнаружит ошибок в программе, на экране 
появится слово RUNNING. 

м) В ответ наберите через пробел два вводимых вещественных 
числа, например, 

5.2 3.8 (RETURN) 

На экран выдается результат: 

А= 5.2000000000Е + 00 В=3.8000000000Е +.00 

6. Пусть в программе были допущены ошибки, например, 

REAAD (А,В); WITELN(* А=\А,* В=\В); 
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Тогда по команде R во время трансляции будет выдана диагностика 
в цижшого строку экрана: 

ERROR 41:Unknown identifier or syntax error. Press <ESC>. 

7. Нажмите < ESC >. На экране появится текст программы, и 
мигающий курсор укажет на место первой ошибки (установится 
в начале слова REAAD). 

8. Для устранения ошибок воспользуйтесь средствами экран¬ 
ного редактора. Он не требует никаких команд для своего вызова 
и всегда готов к работе. 

В приведенном примере необходимо выполнить два действия: 
стереть лишнюю букву А в REAAD и вставить R в WITELN. 

Вставка символа. Подведите курсор к нужной пози¬ 
ции (под букву I) и нажмите вставляемый символ ( R ). Вся строка, 
начиная с указанного места, сместится вправо, а вставляемый сим¬ 
вол встанет на место. 

Удаление символа. Подведите курсор под удаляе¬ 
мый символ и одновременно нажмите две клавиши: < CTRL > и G. 
Символ будет удален, а строка сомкнется. 

В конце приложения приводится перечень команд экранного 
редактора системы Turbo. 

9. После исправления ошибок нажмите клавишу < F10 >, 
затем S. Файл с откорректированным текстом программы запи¬ 
шется под прежним именем (TEST1.PAS), а предыдущий файл 
также будет сохранен на дискете, но расширение PAS система за¬ 
менит на ВАК (TEST1.BAK). 

10. Чтобы посмотреть, какие файлы хранятся на дискете, до¬ 
статочно набрать 

>D 

DIR MASK: (RETURN} 

11. Для выхода из системы Turbo в DOS служит команда 


><? 

Наши первые программы. Эти несложные программы помогут 
пользователю персонального компьютера на практике познакомить¬ 
ся с некоторыми возможностями системы Turbo. 

Программа 1. Разбиение вводимой строки на слова 


PROGRAM KOSYANIN (INPUT,OUTPUT); 
VAR S1,S2: STRING{100}; I:INTEGER; 
BEGIN 

WRITELN (' ВВЕДИТЕ ТЕКСТ '); 
READLN(Sl); I:=l; 

WHILE I < LENGTH(Sl) DO 
BEGIN 
S2:=''; 

REPEAT 


S2:=S2 + S1[I]; I:=SUCC(I) 

UNTIL (S1(I)='_‘) OR (I > LENGTH(Sl)); 
WRITELNC СЛОВО - ',S2) 

END 

END, 
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Эта программа иллюстрирует некоторые возможности рабо¬ 
ты с переменными типа STRING (строка символов). Здесь стандарт¬ 
ная функция LENGTH(Sl) дает длину строки S1, т. е. число симво¬ 
лов в ней; оператор S2:=" означает, что в S2 заносится «пустая» 
строка, не содержащая ни одного символа; операция-)- «сцепляет» 
две строки в одну. 

Пример диалога. 

ВВЕДИТЕ ТЕКСТ 

ПРОГРАММА ВЫЛА НЕБОЛЬШОЙ. 

Результат работы программы 
СЛОВО - ПРОГРАММА 
СЛОВО - БЫЛА 
СЛОВО — НЕБОЛЬШОЙ. 

Программа 2. Преобразование даты 

PROGRAM KRYUKOV (INPUT,OUTPUT); 

LABEL 1; 

TYPE STR10 = STRING[10]; 

VAR DAY,YEAR,YEAR1, MONTH, 

I,J,K,L,M: INTEGER; 

MONTH1: STR10; 

CONST MONTHES:ARRAY [1..12] OF STR10 •= 

('ЯНВАРЯ '/ФЕВРАЛЯ ", 'МАРТА ', 

'АПРЕЛЯ ','МАЯ '/ИЮНЯ ", 

'ИЮЛЯ '/АВГУСТА '/СЕНТЯБРЯ ', 

'ОКТЯБРЯ "/НОЯБРЯ '/ДЕКАБРЯ '); 

BEGIN 

WRITELN (' ВВЕДИТЕ ДАТУ СВОЕГО РОЖДЕНИЯ '); 
WRITELN (' ПО ФОРМАТУ DD ММ YY'); 

READ (DAY, MONTH, YEAR); 

{ПРОВЕРКА ПРАВИЛЬНОСТИ ДАТ} 

WHILE (DAY < 1) OR (DAY > 31) OR 
(MONTH < 1) OR (MONTH > 12) OR 
(YEAR < 0) OR (YEAR > 87) DO 
BEGIN 

WRITELN (" ОШИБКА ВВОДА'); GOTO 1; 

END; 

YEAR1:=1900+ YEAR; 

MONTHl:=MONTHES [MONTH]; 

WRITER ВАШ ДЕНЬ РОЖДЕНИЯ: '); 

WRITE " \ DAY," ", MONTH1," ', YEAR1/; 

1:END. 

Пример диалога. 

ВВЕДИТЕ ДАТУ СВОЕГО РОЖДЕНИЯ 
ПО ФОРМАТУ DD ММ YY 
03 10 71 

ВАШ ДЕНЬ РОЖДЕНИЯ: 3 ОКТЯБРЯ 1971 ГОДА 
В программе использован массив MONTHES, состоящий ия 
переменных-строк, описанный в разделе CONST. 

Програма 3. Орнамент 

PROGRAM KOSYANIN(INPUT, OUTPUT); 

{$1 GRAPH.P} 

VAR I,J,K,L,M,N: INTEGER; 

BEGIN 

GRAPHCOLORMODE; 
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WRITELN(' ВВЕДИТЕ КООРДИНАТЫ ЦЕНТРА '); 
WRITELNC X: ОТ О ДО 320; Y: ОТ 0 ДО 200 '); 
WRITE('X='); READ(I); WRITELN; 

WRITE('Y='); READ(J); WRITELN; 

WRITELN (' УКАЖИТЕ НОМЕР ЦВЕТА ДЛЯ ФОНА •)} 
WRITELN (' ОТ 0 ДО 15 '); 

WRITE (' N='); READ(N); WRITELN; 

WRITELN (' УКАЖИТЕ НОМЕР ЦВЕТА 
ДЛЯ ОРНАМЕНТА '); 

WRITELN (' ОТ 0 ДО 3 '); 

WRITE (' М='); READ(M); 

CLEARSCREEN; GR АРНВАСК GROUND(M); 

FOR К:=1 ТО 61 DO 
BEGIN 

ARC (I,J,360,23,M); TURNLEFT(6); 

END 

END. 


Эта программа рисует орнамент с заданпым центром. Вводятся 
также цвет орнамента и цвет фона. Необходимые данные программа 
запрашивает в процессе выполнения. 

Программа использует графический пакет GRAPH. Р, который 
описывается как внешний модуль посредством псевдокомментария 
{$1 GRAPH. Р}. В общем виде внешний модуль с именем F описы¬ 
вается как {$1._ .F}. 

Опишем некоторые стандартные процедуры для работы с гра¬ 
фикой. 

GRAPHCOLORMODE — переводит экран в графический ре¬ 
жим. Координаты точек на экране задаются парой чисел (X,Y), 
где 0 < X < 319, 0 < Y < 199. 

GRAPHBACKGROUND(N) — закрашивает весь йкран цве¬ 
том с номером N, где 0 ^ N ^ 15. Соответствие параметра N и 
цвета фона следующее: 0 — черный; 1 — синий; 2 — зеленый; 
3 — голубой; 4 — красный; 5 — малиновый; 6 — коричневый; 
7 — светло-серый; 8 — темно-серый; 9 — светлосиний; 10 — светло- 
зеленый; 11 — светло-голубой; 12 — светло-красный; 13 — розовый; 
14 — желтый; 15 — белый. 

Это соответствие справедливо, однако, не для всех мониторов. 
Если монитор вообще не цветной, то смена цвета приведет лишь 
к изменению яркости. 

ARC (X,Y,ALFA,R,M) — рисует дугу, начиная от точки 
(X,Y), размером] ALFA градусов, радиусом R, цвета М. Если 
ALFA > 0, то дуга рисуется по часовой стрелке; если ALFA < 
< 0 — против часовой стрелки. М = 0;1;2;3. 

PLOT (X, Y, М) — ставит точку цвета М с координатами (X, 
Y). М = 0;1;2;3. 

DRAW (X1,Y1,X2,Y2,M) — рисует отрезок цвета М, соединя¬ 
ющий точки (XI, Y1) и (X2.V2). М = 0;1;2;3. 

CIRCLE (X,Y,R,M) — рисует окружность цвета М с центром 
в (X,Y) и радиусом R. 

CetPic (А,XI, Yl, Х2, Y2) — копирует в массив А(буфер) уча¬ 
сток экрана — прямоугольник с координатами концов его диаго¬ 
нали (XI, Y1) и (X2.Y2). 

Минимальный размер NMIN буфера в байтах следующий: 

для экрана 320 X 200 точек 
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NMIN = ((I XI - X2 | + 1)DIV 4) 2(| УІ — Y2 J + 1) +6; 

для экрана 640 X 200 точек 

NMIN = ((I XI - X2 j + 7) DIV 8) (| Y1 - Y2 | + 1) + 6. 

Во втором и третьем байте буфера А после выполнения G 
GETPIC (A,X1,Y1,X2,Y2) запоминается высота и ширина копи¬ 
руемого прямоугольника. 

PutPic (A,X,Y) — копирует содержимое буфера А на экран 
и прямоугольник, у которого нижняя левая вершина имеет коорди¬ 
наты (X,Y). В буфере А предварительно должна быть запомнена 
картинка (цвет каждой точки внутри прямоугольника). 

TurnLeft (ALFA) — поворот направления рисования на угол 
ALFA градусов. Если ALFA > 0, то поворот против часовой стрел¬ 
ки, ALFA < О — по часовой стрелке. 

Программа 4. Управляемый объект. 


PROGRAM KRYUKOV (INPUT,OUTPUT); 

($1 GRAPH.P} 

VAR C,A,B:ARRAY [1..200] OF BYTE; 
I,J,X,Y,CONT:INTEGER; 

EOJ :BOOLEAN;CH,CHl:CHAR; 

BEGIN 

(ОСТАНОВ - НАЖАТИЕ КЛАВИШИ (ПРОБЕЛ); 
ПУСК — НАЖАТИЕ КЛАВИШИ 
НАПРАВЛЕНИЯ ( Т 

ИЗМЕНЕНИЕ РЕЖИМА: СЛЕД - ДА/НЕТ - D; 
СТИРАНИЕ ИЗОБРАЖЕНИЯ — С; 

ВОЗВРАТ В СИСТЕМУ TURBO - Е} 
GRAPHCOLORMODE; 

DRAW (1,1,5,5,3); DRAW (5,1,1,5,2); 

GETRIC (А,0,0,6,6); GETPIC (В,1,1,5,5); 

CLEARSCREEN; 

т- = 160; J:=100; PUTPIC(A,I,J); 

Х'=0; Y: — 0; EOJ:=FALSE; CONT:=2; 

WHILE NOT EOJ DO 
BEGIN {WHILE} 

IF KEYPRESSED THEN 
BEGIN {KEYPRESSED} 

READ (KBD,CH); 

IF(CH=ф27)AND KEYPRESSED 

THEN READ (KBD, CH); 

CASE CH OF 

#72: BEGIN X:=0;Y:=—1 END; 

#75: BEGIN X:=-1;Y:=0 END; 

#77: BEGIN X:=1;Y: = 0 END; 

#80: BEGIN X:=0;Y:=1 END; 

#71: BEGIN X:=-1;Y:=-1 END; 

#73: BEGIN X:=1;Y:=-1 END; 

#79: BEGIN X:=-1;Y:=1 END; 

#81: BEGIN X:=1;Y:=1 END; 

#32: BEGIN X:=0;Y:=0 END; 

#101: BEGIN EOJ:=TRUE END; 

#100: BEGIN CONT:=CONT+l END; 
#99: CLEARSCREEN 
END {CASE} 

END; {KEYPRESSED} 

IF (CONT MOD 2)=0 


THEN C:=A ELSE C:=B; 

I:=I + X;J:=J + Y; 

{'ЗАБОР' ПО ПЕРИМЕТРУ} 

IF I < 0 THEN I:=0; 

IF I >312 THEN I:=312; 

IF J < 8 THEN J:=8; 

IF J > 192 THEN J:—192} 

PUTPIC (C,I,J); 

END {WHILE} 

END. 

Эта программа создает управляемый объект («крестик»). Управ¬ 
ление осуществляется клавишами: { , { < PgUP >, < End >, 

(.Ноте), (PgDn) и (пробел) (остановка). Объект может передви¬ 
гаться по экрану, не оставляя следа, а может рисовать след, подоб¬ 
но мелу па доске. Переключение режима «след — да/нет» произ¬ 
водится клавишей D. При движении по горизонтали «крестик» 
оставляет след в виде двух цветных линий, по диагонали — трех 
линий. Экран можно стереть клавишей С. 

Для выхода ив программы в систему Turbo следует нажать 
клавишу Е. 

Переменные KEYPRESSED и KBD известны системе и но тре¬ 
буют описания в программе. 

KEYPRESSED имеет тип BOOLEAN и принимает значение 
TRUE, если нажата какая-либо клавиша на клавиатуре. 

KBD — файл, куда попадает код нажатой клавиши. 

Оператор READ(KBD.CH) читает из KBD код нажатой клави¬ 
ши и засылает в переменную СН'. Анализируя значение этого кода, 
программа передвигает объект на шаг в одном из направлений: 
вверх, вниз, влево, вправо, по биссектрисам координатных углов. 
Коды предваряются знаком ф. Если объект пытается выйти за пре¬ 
делы экрана, программа ставит ему ограничения. Кодировка кла¬ 
виш приведена в табл. 1. 

При нажатии функциональных клавиш и клавиш с ALT вы¬ 
рабатываются два кода, из которых первым всегда является 27. 
Поэтому при чтении символа из KBD следует сделать проверку на 
27; если «да», то читать второй код и его анализировать. Для клави¬ 
ши <ESC> второй код отсутствует. 


Таблица 1 

Таблица кодов клавиш клавиатуры персонального компьютера 
(совместимого с IBM PC) 









Продолжение 


Клавиша 

Код 

SHIFT 

CTRL 

ALT 

F9 

27 67 

27 92 

27 102 

27 112 

F10 

27 68 

27 93 

27 103 

27 113 


27 75 

52 

27 115 

27 178 


27 77 

54 

27 116 

27 180 

Г 

27 72 

56 

27 160 

27 175 

1 

27 80 

50 

27 164 

27 183 

НОМЕ 

27 71 

55 


27 174 

END 

27 79 

49 

27 117 

27 182 

PGUP 

27 73 

57 

27 132 

27 176 

PGDN 

27 81 

51 

27 118 

27 184 

INS 

27 82 

48 

27 165 

27 185 

DEL 

27 83 

46 

27 166 

27 186 

ESC 

27 

27 

27 


BACKSP 

8 

3 

127 


TAB 

9 

27 15 



RETURN 

13 

13 

10 


A 

97 

65 

1 

27 30 

В 

98 

66 

2 

27 48 

C 

99 

67 

3 

27 46 

D 

100 

68 

4 

27 32 

E 

101 

69 

5 

27 18 

F 

102 

70 

6 

27 33 

G 

103 

71 

7 

27 34 

H 

104 

72 

8 

27 35 

I 

105 

73 

9 

27 23 

J 

106 

74 

10 

27 36 

К 

107 

75 

11 

27 37 

L 

108 

76 

12 

27 38 

M 

109 

77 

13 

27 50 

N 

110 

78 

14 

27 49 

0 

111 

79 

15 

27 24 

P 

112 

80 

16 

27 25 

Q 

113 

81 

17 

27 16 

R 

114 


18 

27 19 

S 

115 

83 

19 

27 31 

T 

116 

84 

20 

27 20 

U 

117 

85 

21 

27 22 

V 

118 

86 

22 

27 47 

w 

119 

87 

23 

27 17 

X 

120 

88 

24 

27 45 

Y 

121 

89 

25 

27 21 

Z 

122 

90 

26 

27 44 

[ 

91 

123 

27 


\ 

92 

124 

28 


] 

93 

125 

29 



96 

126 



0 

48 

41 


27 129 

1 

49 

33 


27 120 

2 

50 

64 

27 3 

27 121 
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Продолжение 



Команды экранного редактора 

1: На символ влево CTRL-S либо 
3: На символ вправо CTRL-D либо -^> 

4: На слово влево CTRL-A либо CTRL . 

5: На слово вправо CTRL-F либо CTRL —. 

6: На строку вверх CTRL-E либо | . 

7: На строку вниз CTRL-X либо J . 

8: Экран на строку вверх CTRL-W. 

9: Экран на строку вниз CTRL-Z. 

10: На страницу вверх CTRL-R либо PgUp. 

И: На страницу вниз CTRL-C либо PgDn. 

12: Влево по строке CTRL-Q CTRL-S либо Ноше. 

13:' Вправо по строке CTRL-Q CTRL-D либо End. 

14: На начало страницы CTRL-Q CTRL-E либо CTRL-Home. 
15: На конец страницы CTRL-Q CTRL-X либо CTRL-End. 

16: На начало файла CTRL-Q CTRL-R либо CTRL-PgUp. 

17: На конец файла CTRL-Q CTRL-C либо CTRL-PgDn. 

18: На начало блока CTRL-Q CTRL=B. 

19: На конец блока CTRL-Q CTRL-K. 

20: На последнюю позицию курсора CTRL-Q CTRL-P. 

21: Решим вставка/замена CTRL-V или INS. 

22: Вставка строки CTRL-N. 

23: Стирание целой строки CTRL-Y. 

24: Стирание до конца строки CTRL-Q CTRL-Y. 

25: Стирание слова справа от курсора CTRL-T. 

26: Стирание символа CTRL-G. 

27: Стирание символа слева от курсора DEL. 

29: Метка «начало блока» CTRL-K CTRL-B или F7. 

30: Метка «конец блока» CTRL-K CTRL-K или F8. 

31: Метка одиночного слова CTRL-K CTRL-T. 

32: Появление/исчезновение блока на экране CTRL-K CTRL-H. 
33: Копирование блока CTRL-K CTRL-C, 
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34: Перепись блока CTRL-K CTRL-V. 

85: Стирание блока CTRL-K CTRL-Y. 

36: Чтение блока с диска CTRL-K CTRL-R. 

37: Запись блока на диск CTRL-K CTRL-W. 

38: Выход из редактора CTRL-K CTRL-D или F10. 

41: Запоминание строки CTRL-Q CTRL-L. 

42: Поиск фрагмента (фрагмент указывается в процессе диалога) 
CTRL-Q CTRL-F. 

43: Поиск/замена фрагмента CTRL-Q CTRL-A. 

Параметры: 

U — игнорировать отличия прописных и строчных букв; 

W — найти слово целиком; 

В — двигаться в обратном направлении; 

G — искать веданный фрагмент во всем файле; при нахождении 
фрагмента система каждый раз переспрашивает: «Заменять — да/ 

N — система сама без переспрашивания заменяет все найден¬ 
ные одинаковые фрагменты. 

Параметры можно задавать подряд в любом порядке. 

44: Повторение последней команды поиска CTRL-L. 

45: Признак управляющего символа CTRL-P. 

Любую команду редактора можно прервать клавишей <ESC>, 
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